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Preface 


This publication describes the Interactive Data Transmission Facility, which is a 
part of the TSO/E licensed program. The TSO/E licensed program supports two 
environments. 

1. The MVS/System Product Version 1 environment (Program Numbers 
5740-XYN and 5740-XYS). 

2. The MVS/Extended Architecture environment (Program Numbers 5740-XC6 
and 5665-291). 

The Interactive Data Transmission Facility is identical in both environments. 

Persons interested in determining the sources of errors within the TSO Extensions 
(TSO/E) Interactive Data Transmission Facility or in making changes to the 
internal logic of this facility should read this publication. Readers must be 
familiar with programming techniques and the operating principles of TSO in 
MVS. 

This publication describes the logic of the TRANSMIT and RECEIVE commands 
for the Interactive Data Transmission Facility and their relationship to TSO in 
MVS. It does not replace the information available in the program listings; but 
it supplements the listings and makes the information in them more accessible. 

This publication contains two sections: Section 1, “Introduction” and 
Section 2, “Module Information.” 

Introduction 

This section describes the general characteristics of the TRANSMIT and 
RECEIVE commands and the organization of the TSO modules that support the 
processing of these commands. 

Module Information 

This section contains a comprehensive processing description of each TSO 
module. The modules are presented in alphabetical order by module name. Each 
processing description consists of the following parts: 

1. Function 

A general description of the purpose and function of the module. 
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2. Entry Point 

Information that describes the conditions under which the module receives 
control, such as its callers, the input received, and the output produced. 

3. Exit 

Information that describes the conditions under which the module returns 
control to its caller. 

4. External References 

The routines and data the module references. 

5. Operation 

A detailed explanation of how the module operates to perform its function. 

6. Diagnostic Information 

Messages that the module issues, return codes that the module sets, and 
registers that the module uses. 

7. HIPO 

Hierarchical Input Process Output (HIPO) diagram that describes the 
operation of the module in graphical form. 

The following information to help in understanding and trouble-shooting the 
Interactive Data Transmission Facility is available on microfiche: 

• For the MVS/370 Environment: 

Data Areas, LYB8-1119 
Macro Usage Table, LYB8-1120 
Symbol Usage Table, LYB8-1112-0 

• For the MVS/XA Environment: 

MVS/Extended Architecture Data Areas 
(For MVS/SP - JES2, LYB8-1191) 

(For MVS/SP - JES3, LYB8-1195) 

MVS/Extended Architecture Macro Usage Table 
(For MVS/SP - JES2, LYB8-1193) 

(For MVS/SP - JES3, LYB8-1197) 

MVS/Extended Architecture Symbol Usage Table 
(For MVS/SP - JES2 Ver 2., LYB8-1192) 

(For MVS/SP - JES3 Ver 2., LYB8-1196) 

Related Publications 

• TSO Extensions General Information, GC28-1061 
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Figures 


1. Overview — TRANSMIT and RECEIVE Commands 

2. TRANSMIT Command Processor 2-2 

3. RECEIVE Command Processor 2-6 
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Summary of Amendments 


Summary of Amendments 
for LY28-1105-2 
TSO Extensions Release 3 

This edition contains the following changes to support TSO/E Release 3: 

• The text of several messages has been updated. 

• New messages have been added. 

• The timestamp for RECEIVE has been expanded to contain seconds. 

• Added capability to receive Professional Office Systems (PROFS). 

Minor technical corrections have also been made in the book. 


Summary of Amendments 

for LY28-1105-1 

as Updated May 13,1983 

by Technical Newsletter Letter LN28-G820 

This technical newsletter reflects the changes for packaging TSO/E as a licensed 
program (Program Number 5665-285) that applies to both MVS/System Product 
Version 1 and MVS/System Product Version 2. 


LY28-1105-2 © Copyright IBM Corp. 1981,1986 


Summary of Amendments 


IX 



"Restricted Materials of IBM” 

Licensed Materials — Property of IBM 


Section 1. Introduction 


The TRANSMIT and RECEIVE commands enable users to send data to each 
other. For each command, there is a separate TSO command processor. The 
transfer of data among nodes is not accomplished by the co mm and processors. 
The command processors ready the data for transmission and reception, while 
other MVS components handle the actual transmission over the network. 

Figure 1-1 shows the relationship of the TRANSMIT and RECEIVE command 
processors to other TSO routines, and to the MVS components involved in the 
data transfer. The general sequence of events is as follows: 

1. Someone at a terminal enters a TRANSMIT co mma nd with a data set name, 
the receiver's userid, and the receiver's node name. (A “nickname” that has 
been previously defined in a control data set can be substituted for the 
receiver's userid and node name.) 

2. The TSO terminal monitor program (TMP) reads the TRANSMIT c omm and 
and attaches the TRANSMIT command processor. 

3. The TRANSMIT command processor formats the sender's data for 
transmission, adds control data, and stores the results in a SYSOUT data set 
on the spool device. 

4. A job entry subsystem (JES2 or JES3) routes the data to the receiver's node 
using communication lines or channel-to-channel (CTC) adapters. (JES 
automatically routes data to the final destination node, passing the data 
through intermediate nodes when necessary.) 

3. At the final destination node, JES stores the data on a spool device. The data 
remains on the spool device until the intended receiver at the node enters a 
RECEIVE command for the data. (The operator can use an authorized form 
of the RECEIVE command to receive the data.) 

6. When a RECEIVE command is entered, it is read by the TSO terminal 
monitor program, which attaches the RECEIVE command processor. 

7. The RECEIVE command processor displays to the receiver a data set name, 
the sender's userid, and the sender's node name. It prompts the receiver for 
the name of a data set into which it can place the data. 

8. The RECEIVE command processor retrieves the data from the spool device 
using a system macro instruction, SSREQ, to direct the JES external writer 
program to retrieve the data. 
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(The RECEIVE command processor and the JES external writer program are 
in separate address spaces; the SSREQ macro instruction is their means of 
communication.) 

9. The RECEIVE command processor restores the data to its original format 
and writes it to the receiver's data set. The receiver can now access the data. 

The data can be in a sequential or partitioned data set, with a record format of 
fixed (F), fixed blocked (FB), fixed blocked sequential (FBS), variable (V), 
variable blocked (VB), variable blocked sequential (VBS), or unblocked (U). 
Transmitted data sets cannot have keys, nor can they be indexed sequential access 
method (ISAM) or virtual sequential access method (VSAM) data sets. 

If the Access Method Services (AMS) Cryptographic Option is installed, the TSO 
TRANSMIT command processor encrypts data, and the RECEIVE command 
processor decrypts data. 


Interactive Data Transmission Facility Logic 
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Figure 1. Overview - TRANSMIT and RECEIVE Commands 
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Section 2. Module Information 


The major routines of the TRANSMIT and RECEIVE command processors are 
shown in Figures 2 and 3, respectively. Use these as a guide to diagrams of 
individual modules shown in the remainder of this section. 
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Figure 2. TRANSMIT Command Processor (Part 2 of 4) 
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Figure 3. RECEIVE Command Processor (Fart 2 of 4) 
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INMCA - MODULE DESCRIPTION 


DESCRIPTIVE name: Control Data Set Allocation Routine 
FUNCTION: 

INMCA initializes the control (NAMES) data set. 

It invokes dynamic allocation and then issues 
OPEN for the requested data set. 

ENTRY POINT: INMCA 

PURPOSE: See FUNCTION 

LINKAGE: PLS CALL 

CALLERS: INMRQ, INMXQ 

INPUT: 

All input is taken from the common parameter 
structure (INMCCOM). The following fields are used: 

DS& Entry number of the data set to be 

initialized 

CTLDSN Name of the NAMES data set 
OUTPUT: 

The NND pointer stored in the CTLNND field of the 
INMCCOM. The initialized NND contains the DCB 
for the data set. 

EXIT NORMAL: BR 14 Return to caller 

EXTERNAL REFERENCES: 

ROUTINES: 

The following are invoked via PLS CALL: 

INMCMSGI - Message issuing routine 

DATA AREAS: 

INMCCCfrl - Common parameter structure 
NND - Control (NAMES) data set 

CONTROL BLOCKS: IEFZB4D0, IEF2B4D2, DCB 
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INMCA - MODULE OPERATION 


INMXQ and INMRQ invoke INMCA during control 
I NAMES) data set processing. INMCA is invoked 
once for each NAMES data set to be processed. 
INMCA invokes dynamic allocation (SVC99) to 
allocate the data set and then issues an OPEN 
for the data set. INMCA checks allocation and 
OPEN processing for errors and checks the data, 
set's DCB for a valid data set organization and 
rpcord length. For successfully accessed data 
sets* INMCA acquires an NND via GETMAIN and 
initializes it with information about the 
data set. 


LY28-1105-2 fc) Copyright IBM Corp. 1981* 1986 


Section 2: Module Information 2-11 



"Contains Restricted Materials of IBM 11 
Licensed Materials - Property of IBM 


XNMCA - DIAGNOSTIC AIDS 


ENTRY POINT NAME: INMCA 


MESSAGES: 

1NMC001I NAMES DATASET dsname IS NOT USABLE* 
INMC002I AN ERROR OCCURRED DURING ALLOCATION* 
INMC003I OPEN FAILED FOR THE DATASET* 

INMC004I LOGICAL RECORD LENGTH MAY NOT BE GREATER 
THAN 255. 


ABEND CODES: None 


WAIT STATE CODES: Nona 


RETURN CODES: 

EXIT NORMAL: 

Return code in register 15 

0 — Data set is open and available* 

4 — Data set is not open* no message issued* 
8 — Data set is not open* message issued* 


REGISTER CONTENTS ON ENTRY: 

Register 8 - Address of INMCCOM 
Register 13 - Save area address 
Register 14 - Return address 
Register 15 - Entry point address 
Other - Unpredictable 


REGISTER CONTENTS ON EXIT: 

EXIT NORMAL: 

Register 15 - Return code 
Other - Unchanged 
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INMCA - Control Data Set Allocation Routine 


STEP 01 


INMRQ> INMXQ 


o 

INMCA 


IKHCA initializes the control (NAMES) data 
set. It invokes dynamic allocation and 
then issues OPEN for the requested data 
set. 


INMCCOM 


IEFZB4D0 


S99RBPTR S99RB 


INMCCOM 


CTLDSNL CTLDSN 
MOOIDPTR 


IEFZB4D2 


DALDSNAM DALSTATS 
DALRTDDN DALRT0R6 


IEFZB4D0 


S99TULNG 


INMREGS 


INMCCOM 


INMCCOM 


CTLDSNL 



INMCCOM 

DSC c 
CTLDSN 

IEFZB4D0 

S99ERROR 

INMREGS 


CTLDFLT 


> 01 Allocate the requested NAMES 
\ 1 — 1 data set and check for 
/ allocation errors. 

A. ALLOCATE THE REQUESTED NAMES DATA SET. 


DYNALLOC 


B. ISSUE MESSAGE INMC012 IF THE NAMES FILE 
IS NOT SEQUENTIAL. 


INMCMSGI 


C. IF THE ALLOCATION FAILED ISSUE MESSAGE 
IW1C001._^ 

\i-«/| INMCMSGI 


MNMCCOM 

/.- 

MODIDPTR 

MEFZB4D0 



J \INMCCOM 

l/f- 

MSG* 

MSGFLAGS 

STRNGMSG 

MSGRC 

MSGSTRL 

MSGSTRP 

CTLPERR 


INMCCOM 


CTLDSNL 
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ZNMCA - Control Data Set Allocation Routine 


STEP 01D 


XEFZB4D0 


0. ISSUE THE SPECIFIC ALLOCATION MESSA6E 
INMC002. 


N.-1/ 


INMCMS6I 


XNMCNND 



XNMCNND 


XNMCCOM 


CTLDSNL 


02 Obtain and initialize the 
— 1 NND block for this data set. 

A. GETMAIN SPACE FOR THE NND BLOCK 


GETMAIN 


R, LV-(O) 


03 Zssue OPEN for the NAMES 
— 1 data set. If the open is 
successful* verify that the 
record format and record 
length are acceptable. 


KXNMCCOM 

\'\ - 1 
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CTLALLOC 
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INMCA - Control Data Set Allocation Routine 


STEP 03C 


INMCCOM 


DS* CTLPERR 
CTLDSN 


IHADCB 


DCBRECFM DCBLRECL 


INMCCOM 


CTLDSNL 


INMCNND 



> C. ENSURE THAT A CORRECT DATA SET RECORD 
1 FORMAT AND AN ACCEPTABLE RECORD LENGTH 
AREA ARE USED. 

D. ISSUE MESSAGE INMC004 FOR AN LRECL 
ERROR. 


INMCMSGI 


J \XNMCNND 


E. CLOSE THE INVALID NAMES DATA SET. 


\|- 1 / 



<(2)), MF=(E, OPENLIST) 


INMCCOM 


INMCCOM 


INNDPTR 


F. RETURN TO THE CALLER. 


<71 


J \XNMCCOM 

l^i- 

CTLPERR 

CTLKND 

MODIDPTR 
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INMCEOF - MODULE DESCRIPTION 


DESCRIPTIVE NAME: Control Data Set EODAD Routine 
FUNCTION: 

Mien end-of-file occurs on the names data set* 

INMCEOF sets the NNDEOF flag and returns to the 
mainline modulo* which will take appropriate 
action. 

ENTRY POINT: INMCEOF 
PURPOSE: See FUNCTION 
LINKAGE: PLS CALL 

CALLERS: Access method CHECK routine 
INPUT: Address of the NND in register 9 
OUTPUT: End-of-file bit set in the NND 
EXIT NORMAL: 

BR 14 return to the instruction following 
the CHECK. 

EXTERNAL REFERENCES: 

ROUTINES: None 
DATA AREAS: 

INMCCOM - Common parameter structure 
INMCNND - Control data set blocks 

CONTROL BLOCKS: None 
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INMCEOF - Control Data Set EODAD Routine 


Access method CHECK routine 


INMCEOF 


When end-of-file occurs on the names data 
set* INMCEOF sets the NNDEOF flag and 
returns to the mainline module* which will 
take appropriate action. 
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INMCMSGI - MODULE DESCRIPTION 


DESCRIPTIVE NAME: Message Issuing Routine 
FUNCTION: 

INMCMSGI issues messages for the TRANSMIT and 
RECEIVE commands* Calling routines use the 
INMMSG macro to complete INMCMSGI parameters in 
the INMCCOM common parameter structure. INMCMSGI 
also controls invoking IKJEFF18 for allocation 
messages and IKJEFF19 for subsystem and IKJPARS 
error messages* 

ENTRY POINT: INMCMSGI 

PURPOSE: See FUNCTION 

LINKAGE: ?INMMSG 

CALLERS: TRANSMIT and RECEIVE modules 
INPUT: 

All input is provided via the common parameter 
structure IWtCCOM* 

OUTPUT: Message is sent to the user* 

EXIT NORMAL: BR 14 Return to caller 

EXTERNAL REFERENCES: 

ROUTINES: 

The following are invoked via CALLTSSR: 

IKJEFF02 - TSO message issuing routine 
IKJEFF19 - Subsystem interface message routine 

The following is invoked via LINK: 

IKJEFF18 - Allocation message routine 

DATA AREAS: 

INMCCOM - Common parameter structure 
NND - Control data set block 

CONTROL BLOCKS: CVT> CPPL, IKJEFFDF, IKJEFFGF, IKJEFFMT 
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INMCMS6I - MODULE OPERATION 


INMCMSGI checks bits in the INMCCOM and builds 
the appropriate type of call to IKJEFF02. If 
requested» INMCMSGI also invokes IKJEFF18 to 
build and issue allocation error messages or 
invoke IKJEFF19 for subsystem or IKJPARS error 
messages. If both a normal message and a 
a secondary routine call are requested * INMCMSGI 
issues the normal message first and then calls 
IKJEFF19 or IKJEFF18. 
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XNMCMSGX - DIAGNOSTIC AIDS 


ENTRY POINT NAME: INMCMSGI 


MESSAGES: 

INMC006I DSNAME= 1 dsnante' > RECORD NUMBER=rm, 

RECORD TEXT: 

Provides information identifying the location 
of syntax errors in the NAMES datasets. 
INMC007I record text 

The text of a NAMES dataset record in which 
an error was detected. 


ABEND CODES: None 

WAIT STATE CODES: None 

RETURN CODES: 

EXIT NORMAL: 

Return code in register 15 is always zero. 


REGISTER CONTENTS ON ENTRY: 

Register 8 - Address of XNMCCQM 

Register 13 - Save area address 
Register 14 - Return address 
Register 15 - Entry point address 
Other - Unpredictable 


REGISTER CONTENTS ON EXIT: 

EXIT NORMAL: 

Register 15 * Always zero 
Other - Unchanged 
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INMCMSGI - Message Issuing Routine 


STEP 01 


TRANSMIT and RECEIVE modules 


c> 

XNMCMSGI 


INMCMSGI issues messages for the TRANSMIT 
and RECEIVE commands* Calling routines use 
the INMMSG macro to complete INMCMSGI 
parameters in the INMCCOM common parameter 
structure* INMCMSGI also controls invoking 
IKJEFF18 for allocation messages and 
IKJEFF19 for subsystem and IKJPARS error 
messages* 


INMCCOM 

PLAINMSG FNOMSG 

IKJEFFMT 


MSGCSECT 


INMCCOM 


CPPLPTR MSG# 
MODIDPTR 

IKJEFFMT 

Imsgtable 


INMCCOM 

HEXMSG STRNGMSG 
MSGFIXED 

IKJEFFMT 

MSGCSECT 

INMCCOM 

CPPLPTR MSG# r 
MSGSTRL 

IKJEFFMT 

Imsgtable r 


Check for and issue local 


MNMCCOM 



B* ISSUE A MESSAGE WITH STRING AND HEX 
INSERT S* 

\|-1/ CALLTSSR 

EP=IKJEFF02> MF=(E>(1)) 


MSGTABLE 

LISTPTR 

MTCPPL 

MTHIGH 

MSGCSECT 

MTPUTLSW 

MTHEXSH 

MTPGMSW 

MSGID 


J \INMREGS 

i/f- 

R1 

JMKJEFFMT 

i/|- 

MSGTABLE 

LISTPTR 

MTCPPL 

MTHIGH 

MSGCSECT 

MTPUTLSW 

MTHEXSH 

MTPGMSW 

MSGID 

LI 

VAR1 

L2 

HIGHL2 

VAR2 

KXNMREGS 

'"EZH 
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XNMCMSGX - Message Issuing Routine 


STEP 01C 
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XNMCMSGX - Message Issuing Routine 


STEP 01E 


XNMCCOM 


HEXMSG MSGFIXED 


KXNMCCON 


XKJEFFMT 


MSGCSECT 


XNMCCOM 



CPPLPTR MSG# 


XKJEFFMT 


MSGTABLE 



OECMSG MSGFIXED 


XKJEFFMT 


MSGCSECT 


XNMCCOM 


CPPLPTR MSGS 


XKJEFFMT 


!MSGTABLE 

XNMCCOM 


ALLOCMSG 


XNMCCOM 


F. ISSUE A MESSAGE WITH A DECIMAL INSERT. 


CALLTSSR 



EP=IKJEFF02> MF=(E,(1)) 



>02I After issuing local 
1 — 1 messages; invoke the 
standard system message 
issuing routines. The first 
of these is XKJEFF18* which 
issues allocation error 
messages. 

A. CALL THE ALLOCATION MESSAGE ISSUER. 


EPsIKJEFF18 


JDFSVC99 

XNMCCOM 


SYNTXMSG 
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INMCMS6I - Message Issuing Routine 


STEP 03 


INMCCOM 


IKJEFFMT 


[MSGCSECT 

INMCNND 


NNDRECC1 NNDDSN 


INMCCOM 


CPPLPTR CTLNND 


IKJEFFMT 


MSGTABLE 


INMCNND 


, NNDDSNL 


IKJEFFMT 


IMSGCSECT 


IKJEFFMT 


MS6TABLE 


INMCCOM 


CPPLPTR 


INMCNND 


^NNDRLEN 

INMCCOM 


SSREQMSG 




> 03 If the error was a syntax 
\ 1 — 1 error in a NAMES data set* 

/ issue messages giving the 
location of record in which 
the error was detected and 
the contents of that record. 

A* ISSUE MESSAGE INMC006 GIVING THE DSNAME 
AND RECORD NUMBER* 


CALLTSSR 



EP=IKJEFF02, MF=(E>(1)) 


B. ISSUE MESSAGE IWfC007 GIVING THE ERROR 
RECORD TEXT* 


CALLTSSR 



EP=IKJEFF02, MF=(E><1)) 




KINMCCOM 


MKJEFFMT 

\/\ - 

MSGTABLE 
LISTPTR 
MTCPPL 
MTHIGH 
MSGCSECT 
MTPUTLSW 
MTNHEXSW 
MTPGMSW 
MSGID 
LI 

VAR1 
L2 

HIGHL2 
VAR2 


MNMREGS 


MKJEFFMT 


MSGTABLE 
LISTPTR 
MTCPPL 
MTHIGH 
MSGCSECT 
MTPUTLSW 
MTHEXSW 
MTPGMSW 
MSGID 
LI 

VAR1 

MNMREGS 

’'EZI 


INMCCOM 


IKJEFFGF 


GFPARMS GFSSREQ 


INMCCOM 


.CPPLPTR MSGSSOB 
jMSGRC 

INMCCOM 



> 04 Invokes system routine 
\ 1 IKJEFF19 to send error 

/ messages when subsystem 
request failures occur. 

A. CALL IEFSSREQ THE MESSAGE ISSUER* 


EP=IKJEFF19 



MKJEFFGF 

/, - 

GFPARMS 

GFCBPTR 

GFRCODE 

GFCALLID 

GFSUBSYS 

GFCPPLP 

GFPGMNP 


MNMREGS 
% -1 
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INMCMSGX - Message Issuing Routine 


STEP 05 




MKJEFFGF 

/«- 

GFPARMS 

GFRCODE 

GFCALLID 

GFCPPLP 

GFPGMNP 


MNMREGS 



MNMCCOM 


Imodxdptr 
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XNMCR - MODULE DESCRIPTION 


DESCRIPTIVE NAME: TRANSMIT and RECEIVE ESTAE routine 
FUNCTION: 

INMCR consists of two sections. The first* 
uses GETMAIN to obtain a storage area and then 
issues ESATE to set up the recovery environment. 

The second section is the ESTAE exit routine. 

The ESTAE exit routine takes a system dump if 
required and invokes either INMXR or 
INMRR for cleanup activities. 

ENTRY POINT: INMCR 

PURPOSE: See FUNCTION 
LINKAGE: SYNCH from RTM 
CALLERS: RTM 
INPUT: 

User parameter passed via the SDWA is the address 
of INMCCOM. THE following fields are used: 

CMDABEND Save area for ABEND code 
CMDRETRY Address of cleanup routine 

OUTPUT: ABEND code is saved in CMDABEND. 

EXIT NORMAL: BR 14 Return to caller 

EXTERNAL REFERENCES: 

ROUTINES: 

INMXR - TRANSMIT ABEND cleanup 
routine 

INMRR - RECEIVE ABEND cleanup 
routine 

DATA AREAS: 

INMCCOM - Common parameter structure 
SDWA - System Diagnostic Work Area 

CONTROL BLOCKS: SDWA* VRA 
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XNMCR - MODULE OPERATION 


INMCR obtains a storage area to be used both at 
setup time and by the ESTAE exit routine. It 
then issues ESTAE to set up the recovery 
environment before returning to the caller. 

If an ABEND occurs> control is passed to the 
INMCRX entry point by the recovery termination 
manager (RTM). INMCRX checks for the VRA fields> 
it then determines if a system dump should be 
taken by comparing the actual abend code against 
a list of codes for which a dump should not be 
taken. If a dump is needed> INMCRX builds the 
dump title and uses SDUMP to take the dump. 

If an SDHA was built> either 

XNMXR or INMRR is invoked to perform 

cleanup and control is returned to RTM. 
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XNMCR - DIAGNOSTIC AIDS 

ENTRY POINT NAMES XNMCR 

MESSAGES: None 

ABEND CODES: None 

WAIT STATE CODES: None 

RETURN CODES: 

EXIT NORMAL: 

Return code set in register 15 
0 - termination should continue 

REGISTER CONTENTS ON ENTRY: 

As described for ESTAE routines 

REGISTER CONTENTS ON EXIT: 

EXIT NORMAL: 

Register 14 - Return address 
Register 15 - Return code 
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XNMCR - TRANSMIT and RECEIVE ESTAE routine STEP 01 
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XNMCCOM 


6DATARE6 


XHASDWA 


SDWAABCC SDMAGR15 


J \ 1041 Xf an SOMA is available* 

*— 1 fill in the appropriate SOMA 
fields and place useful 
information in the VRA area. 
Determine if a dump should 
be taken and invoke either 
XNMXR or INMRR for cleanup. 



2-32 Interactive Data Transnission Facility Logic LY28-1105-2 (c) Copyright IBM Corp. 1981* 1986. 






























'Contains Restricted Materials of IBM 11 
Licensed Materials - Property of IBM 


ZNMCR - TRANSMIT and RECEIVE ESTAE routine 


INMCCOM 


CMDABEND 


IHASDWA 


SDWAVRA 


IHAVRA 


VRAKL 


INMCCOM 


MSG# CMDNAME 


IHASDWA 


SDWAGR15 SDWAURAL 


IHAVRA 


A. STORE PROPER INFORMATION INTO THE SDWA 
AND VRA. 


VRACOM 

VRASC 

VRALVL 

VRADT 

VRARC 

VRACBM 

VRACB 

VRACBF 

VRARRL 

VRAMID 


INMCCOM 


.CMDNAME CMDABEND. 
CMDREAS GUSERID 


Check the completion code 
for certain values that will 
not require a dump (X37# 

X22* X13, XOA* X04 , X06* 
X14K If a dump is to be 
taken# build the dump header 
and issue SDUMP to take the 
dump* 


A* CHECK FOR AN AUTHORIZED ENVIRONMENT. 

/i-K,- 

\«-1/| TESTAUTH 


STEP 04A 
-JMHASDWA 


SDNAMODN 

SDWACSCT 

SDWAREXN 

SDWAHEX 

SDWAVRAM 


VRAKEY 

VRALEN 

VRADAT 


FCTN=1, KEY=YES, STATE=YES, 
RBLEVEL=1 


INMRE6S 

Ir15 


-> B. IF THE TASK IS AUTHORIZED AND SDUMP 
ALLOWED, TAKE A SYSTEM DUMP 

/I-1\.- 

\j-1/ SDUMP 

HDRAD=DTITLE, MF=(E,DUMPLIST) 


INMCCOM 


CMDRETRY 


REGISTER R15 
I RETURN REGISTER: R14 


MNMREGS 


R1S 


LY28-1105-2 (c) Copyright IBM Corp. 1981, 1986 


Section 2: Module Information 2-33 
























"Contains Restricted Materials of IBM" 
Licensed Materials - Property of IBM 


XNMCR - TRANSMIT and RECEIVE ESTAE routine 


STEP 05C 


C. BRANCH IF SPECIFIED 


>M0105: OSE 


D* FURTHER TEST FOR STOR LIST BRANCH IF NO 
STORAGE LIST 


J \XHASDWA 

l/f- 

SDWAREQ 

SDWARCDE 

SDWADLST 

SDNAENSN 

SDWALVL2 

SDWADDAT 


>E0105: OSJ 


I05E > E. 

1 -|/ 

M0105 


IHASDWA 


SDWAXPAD SDWADSRP 


-> F. TEST IF DUMP STOR RANGES EXTENSION 
EXISTS BRANCH IF NO DUMP EXTENSION 
EXISTS 


>E0105: OBJ 


G. BRANCH IF 30 RANGES ALLOWED 


>N0105: 05H 


J \IHASDWA 

} / \ - 

SDWASLST 

SDMADVS3 


IHASDWA 


SDWADMX1 


IHASDWA 


SDWADMX2 


IHASDWA 


SDWAXPAD SDWADSRP 
SDWADSRA SDWADSRL 


IHASDWA 


SDWADSR 


05H > H. 

x —\/ 

N0105 


051 > I. 

1 - 1 / 

00105 



>00105; 051 



MHASDWA 



K. BRANCH IF NOT SPECIFIED 


>U0105; 050 
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XNMCR - TRANSMIT and RECEIVE ESTAE routine STEP 05L 
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MODULE DESCRIPTION: 

INMCSPAC- - TRANSMIT and RECEIVE Command Storage 
Management Routine 

FUNCTION: 

The INMCSPAC routine is invoked by the TRANSMIT and RECEIVE 
commands as part of their normal entry and exit linkage 
in order to obtain and release Marking storage used during 
program execution. 

ENTRY-POINT: 

GSPACE - Returns the required storage 

FSPACE - Frees the required storage 

6SPACE1 - Resume after obtaining the required storage 

PURPOSE: See FUNCTION 
LINKAGE: PLS CALL 

CALLERS: TRANSMIT and RECEIVE CSECTS 
INPUT: See REGISTERS above 
OUTPUT: See REGISTERS above 
EXIT-NORMAL: BR 14 Return to caller 
EXIT-ERROR: 

EXTERNAL-REFERENCES: 

ROUTINES: None 


DATA-AREAS: 

Data structure maintained by INMCSPAC: 


♦0 ♦ 


♦4K 


BUFFTOP 

i BUFFI0 

NEXTSLOT 

1 BUFFSIZE 

FLAG! 

1 NEXTBUFF 

RESERVED 

1 BUFFENO 

REGISTER 

SAVE AREA FOR 

GSPACE and FSPACE 


FREE SPACE 


TOP POINTER I 
——-— 


ALLOCATED SPACE 


♦8K 

CONTROL-BLOCKS: None 


<-NEXTSLOT 


-BUFFEND 
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MODULE OPERATION: INMCSPAC 

XNMCSPAC obtains buffers of storage and then subdivides the 
storage between calling modules in order to avoid issuing 
GETMAIN and FREEMAXN SVC requests as part of the normal 
entry and exit linkage. XKHCSPAC provides the caller with 
the ability to obtain storage for automatic variables and 
save areas. The use of XKHCSPAC is restricted to LXFO 
allocation (last allocated is the first freed) requests. 
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DIAGNOSTIC AIDS: XNMCSPAC 
ENTRY-POINT NAME: 6SPACE 

MESSAGES: Nona 

ABEND CODES: Nona 

HAIT-STATE CODES: Nona 

RETURN CODES: Nona 

REGISTER CONTENTS ON ENTRY: 

ENTRY POINT 6SPACE: 

Register 1 - Address of eoaaand processor 

parameter list (CPPU 
Register IS - Save area address 
Register 14 - Return address 
Register 15 - Entry point address 
Other - Unpredictable 

REGISTER CONTENTS ON EXIT: 

ENTRY POINT 6SPACE: 

EXIT NORMAL: 

See REGISTERS above 


2-38 Interactive Data Tnuumtaion Facility Logic 


LY28-1105-2 ©Copyright IBM Corp. 1981,1986 



"Contains Restricted Materials of IBM" 
Licensed Materials - Property of IBM 


XNMCSYN - MODULE DESCRIPTION 


DESCRIPTIVE NAME: Control Data Set SYNAD Routine 
FUNCTION: 

INMCSYN processes synchronous I/O errors on the 
NAMES data sets. It receives control from the 
QSAM check function when an error is detected. 

INMCSYN uses the SYNAD macro to obtain the 
standard error text for the problem> issues 
a message identifying the name of the dataset 
in error> and issues a message containing the 
SYNAD text. 

ENTRY POINT: INMCSYN 

PURPOSE: See FUNCTION 

LINKAGE: PLS CALL (from QSAM error processing) 

CALLERS: Access method CHECK routine 
INPUT: Address of INMCCOM in register 8 
OUTPUT: I/O error bit set 

EMIT NORMAL: BR 14 Return to instruction following GET 

EXTERNAL REFERENCES: 

ROUTINES: 

The following are invoked via PLS CALL: 

INMCMSGI - Message issuing routine 

DATA AREAS: 

INMNND - Control data set block 
INMCCOM - Common parameter structure 

CONTROL BLOCKS: None 
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XNMCSYN - MODULE OPERATION 


INMCSYN receives control from the QSAM error 
checking routine when an error is encountered 
while processing one of the user's NAMES 
data sets. INMCSYN uses the SYNAD function to 
get the standard system text for the error. 

Next, INMCSYN uses GETMAIN to obtain space for 
a save area to be used during calls to INMCMSGI, 
which will issue the error messages. The first 
message issued indicates a NAMES data set error 
and gives the name of the data set. The second 
gives the standard system error text. INMCMSGI 
finally frees its save area, uses SYNADRLS to 
clean up after the SYNAD, and returns to QSAM. 
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XNMCSYN - DIAGNOSTIC AIDS 


ENTRY POINT NAME: XNMCSYN 


MESSAGES: 

INNCOOI THE NAMES OATASET 'dsname' IS NOT USABLE 
INMC008 A PERMANENT I/O ERROR OCCURRED AFTER RECORD 
NUMBER m ♦ 

INMC009 system I/O error text 


ABEND CODES: None 
WAIT STATE CODES: None 
RETURN CODES: None 

REGISTER CONTENTS ON ENTRY: 

Register 8 - Address of INMCCOM 

Register 14 - Return address 
Register 15 - Entry point address 
Other - Unpredictable 

REGISTER CONTENTS ON EXIT: 

EXIT NORMAL: 

Unchanged 
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INMCSYN - Control Data Set SYNAD Routine 


Access method CHECK routine 


c> 

INMCSYN 


INMCSYN processes synchronous I/O errors 
on the NAMES data sets. It receives 
control from the QSAM check function when 
an error is detected. INMCSYN uses the 
SYNAD macro to obtain the standard error 
text for the problem» issues a message 
identifying the name of the dataset in 
error* and issues a message containing the 
SYNAD text. 
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INMCTIME - MODULE DESCRIPTION 

DESCRIPTIVE NAME: GMT To Local Time Conversion Routine 
FUNCTION: 

INMCTIME converts Greenwich Mean Time (GMT) to 
local time. INMCTIME uses the CVTTZ value to 
provide the difference between GMT and local time. 

ENTRY POINT: INMCTIME 

PURPOSE: See FUNCTION 

LINKAGE: PLS CALL 

CALLERS: IWXM, XNMRO 

INPUT: 14-character GMT value 

OUTPUT: 14-character local time value 

EXIT NORMAL: BR 14 Return to caller 

EXTERNAL REFERENCES: See below 

ROUTINES: 

The following are invoked via PLS call: 

INMCMSGI - Message issuing routine 

CONTROL BLOCKS: CVT 
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XNNCTIHE - MODULE OPERATION 


INMCTIME converts time values from GMT to local time. 
Two parameters are passed to this routine: TIMEl* 
which is the GMT > and TIME2> which is the area for the 
local time. Both time values are assumed to be 14 
characters long and have the standard transmission 
time format of YYYYMMDDHHMMSS. The conversion factor 
for getting local time from GMT is obtained from the 
CVTTZ value. CVTTZ is in units of 1.048576 seconds and 
is first converted to units of 1 second by the two 
factors MULTF and DIVF. There is some probability of 
round-off error in this process* so INMCTIME makes a 
test for zero seconds and rounds up the time difference 
if it is close to a minute boundary. 
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XNMCTXME - DIAGNOSTIC AIDS 


ENTRY POINT NAME: INMCTIME 
MESSAGES: 

INMR007I Time stamp in the incoming data is not 
valid. Zero will be substituted. 


ABEND CODES: None 

WAIT STATE CODES: None 

RETURN CODES: 

EXIT NORMAL: 

Return code in register 15 
0 — Data set open and available 

REGISTER CONTENTS ON ENTRY: 

Register 8 - Address of INMCCOM 
Register 13 - Save area address 
Register 14 - Return address 
Register 15 - Entry point address 
Other - Unpredictable 


REGISTER CONTENTS ON EXIT: 

EXIT NORMAL: 

Register 15 - Return code 
Other - Unchanged 
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INMCTIME - GMT To Local Time Conversion Routine 


STEP 01 


PARAMETERS 


I TIME1 TIME2 


INMXM, INMRO ■' 1 - - 

pi INMCTXME converts Greenwich Mean Time 

u \ (GMT) to local time. INMCTIME uses the 

I_ > CVTTZ value to provide the difference 

j / between GMT and local time. 

INMCTIME 

-j=$i- 


INMCCOM 


.MODIDPTR 


PARAMETERS 


PARAMETERS 


PARAMETERS 


TIME1 TIME 2 


PARAMETERS 


I TIME1 TIME2 



\ 01 CONVERT GMT TIME VALUES TO 
A 1 - 1 LOCAL TIME. 


A. CONVERT THE CVTTZ VALUE INTO SECONDS. 


B. ISSUE MESSAGE INMR007 IF TIME STAMP IS 
INVALID_ ^ 

\i-i/l INMCMSGI 


C. UPDATE THE MINUTE (IF NECESSARY) AND 
HOUR VALUES. 


D. UPDATE THE DAY* MONTH* AND YEAR VALUES 
AS REQUIRED. 


E. RETURN TO THE CALLER. 


tn 


KINMCCOM 


MODIDPTR 



\PARAMETERS 


MNMCCON 

IMODIDPTRI 
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XNMCX - MODULE DESCRIPTION 


DESCRIPTIVE NAME: Attention Handling Routine For The 

TRANSMIT Command* 

FUNCTION: 

INMCX handles attention internets for the 
TRANSMIT command during the time it is doing 
full-screen processing. ItttfCX re-establishes 
full-screen mode if the user requests re-entry 
into TRANSMIT. 

ENTRY POINT: INMCX 

PURPOSE: See FUNCTION 

LINKAGE: SYNCH from the attention handler 
CALLERS: System attention handler 
INPUT: None 
OUTPUT: None 

EXIT NORMAL: BR 14 Return to the caller 

EXTERNAL REFERENCES: 

ROUTINES: IKJEFF02 - Issue the prompt message. 

DATA AREAS: 

INMCCQM - Common parameter structure 
IKJEFFMT - IKJEFF02 parameter format 

CONTROL BLOCKS: CVT 
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ZNMCX - MODULE OPERATION 


XNMXTXN establishes INMCX as an attention 
handler during the time it is using full-screen 
TPUT and TGET to read terminal input. INMCX 
receives control when the user presses the 
attention key. It issues a prompt message to 
allow the user to repeat the attention 
and return to the TMP in "READY" mode or to make 
some other response and return to the TRANSMIT 
command. If the user wishes to re-enter TRANSMIT, 
INMCX issues the STFSMODE macro to reestablish 
full screen mode before allowing the TRANSMIT 
command to be re-started. 
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INMCX - DIAGNOSTIC AIDS 

ENTRY POINT NANE: INMCX 
MESSAGES: 

INMC0Q5I PRESS THE PA1 KEY TO EXIT FROM emdhame. 
ANY OTHER RESPONSE MILL CAUSE THE 
COMMAND TO CONTINUE. 

ABEND CODES: None 

WAIT STATE CODES: None 

RETURN CODES: 

EXIT NORMALS 

Return code in register 15 is always zero. 

REGISTER CONTENTS ON ENTRY: 

As described for attention exits 

REGISTER CONTENTS ON EXIT: 

EXIT NORMALS 

Register 15 - Return code 
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INHCX - Attention Handling Routine For The TRANSMIT Command. 


System attention 


PARAMETERS 


TAIE1 IBUF 
MCOM 


handler 

c> 

INMCX 
- K 


V 


INMCX handles attention interrupts for the 
TRANSMIT command during the time it is 
doing full-screen processing* INMCX 
re-establishes full-screen mode if the 
user requests re-entry into TRANSMIT. 
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INMRALLO - MODULE DESCRIPTION 


DESCRIPTIVE NAME: Allocate Output Data Set Routine 
FUNCTION: 

INMRALLO allocates all the output data sets for 
the RECEIVE operation. The output data sets 
include the primary output data set specified by 
user and also temporary data files which will be 
used by the partitioned data set reload and data 
decipher processes. 

ENTRY POINT: INMRALLO 

PURPOSE: See FUNCTION 

LINKAGE: PLS CALL 

CALLERS: INMRO 

INPUT: 

All input is provided via the common parameter 
structure INMCCOM. The following fields are used: 

ATXTPTR, FSPACE1, FDIR, FMEM, FIEBCQPY, FDFLTDSP> 

FVOL, FREST2 

OUTPUT: 

DD names for the allocated files> stored in 

the INMCCOM variables: OUTDDN* REST2DDN* ULPDSDDN, 

CODEDON 

EXIT NORMAL: BR 14 Return to caller 

EXTERNAL REFERENCES: 

ROUTINES: 

The following are invoked via PLS CALL: 

INMCMSGI - Message issuing routine 

The following are invoked via CALLTSSR: 

IKJEFF02 - TSO message issuing routine 

DATA AREAS: 

INMRATXT - Output data set allocation text 
units 

INMRCINF - Received file description table 
INMRCOM - RECEIVE command communications area 
INMCCOM - Common parameter structure 
INMXPRMD - Installation options block 

CONTROL BLOCKS: 

CVT> DCB, CPPL, ECT, 

IEFZB4D0, IEFZB4D2 
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ZNMRALLO - MODULE OPERATION 


INMRALLO performs the following functions: 

1) Allocation parameters> supplied previously 
either via transmitted data or directly by 
the user are completed, 

2) Initial allocation of the data set is 
attempted with disposition OLD, If this 
fails* another attempt is made by adding 
space information and setting DISP-NEN, 

3) If the allocation is successful> the target 
data set is checked for proper type 
(sequential or partitioned), 

4) If IEBCOPY is to be used for rebuilding a 
partitioned data set* a temporary data set 
data set* which will be used to contain the 
IEBCOPY input file is allocated. 

5) If Access Method Services REPRO is to be used 
for deciphering the incoming data* a temporary 
data set* which will be used to contain the 
REPRO input file is allocated. 
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INMRALLO - DIAGNOSTIC AIDS 


ENTRY POINT NAME: INMRALLO 


MESSAGES: 

INMR042I RECEIVE FAILED* SYSTEM CANNOT PROMPT 
YOU FOR INFORMATION. 

INMR043I PROMPTING NAS INHIBITED. 

INMR044I RETURN CODE nn FROM IKJEFF02. 

INMR045I DATASET , dsname # ALREADY EXISTS. REPLY 
•R* TO REPLACE IT. 

INMR046I ANY OTHER REPLY WILL CAUSE RECEIVE TO 
TERMINATE WITHOUT OVERWRITING THE FILE. 

INMR060I RECEIVE COMMAND TERMINATED. OUTPUT 
DATASET UNUSABLE. + 

INMR061I 1 dsname' IS A SEQUENTIAL DATASET BUT THE 
DATASET BEING RECEIVED IS PARTITIONED. 

INMR062I 'dsname' IS A PARTITIONED DATASET BUT NO 
MEMBER NAME WAS SPECIFIED. 

INMR063I ALLOCATION FAILURE FOR DATASET 'dsname 1 . 

INMR067I DATA SET 'dsname* IS INVALID. ENTER 
RECEIVE. WHEN PROMPTED SPECIFY VALID 
DATA SET NAME. 

INMR069I DATASET ORGANIZATION OF DATASET 
•dsname' IS NOT SUPPORTED. 

INMR070I RECEIVE COMMAND TERMINATED. FAILURE IN 
PARTITIONED DATASET RELOADING PROCESS. + 

INMR071I ALLOCATION FAILED FOR IEBCOPY xxx FILE. 

INMR080I RECEIVE COMMAND TERMINATED. FAILURE IN 
DECRYPTION PROCESSING. ♦ 

INMR081I ALLOCATION FAILED FOR REPRO COMMAND xxx 
FILE. 

INMR800I THE RECEIVE COMMAND FAILED. THE 
PUTGET SERVICE ROUTINE ISSUED 
RETURN CODE 'nn 1 . 


ABEND CODES: None 


WAIT STATE CODES: None 


RETURN CODES: 

EXIT NORMAL: 

Return code is register 15 is always zero. 


REGISTER CONTENTS ON ENTRY: 

Register 8 - Address of INMCCOM 

Register 13 - Save area address 
Register 14 - Return address 
Register 15 - Entry point address 
Other - Unpredictable 

REGISTER CONTENTS ON EXIT: 

EXIT NORMAL: 

Register 8 - Address of INMCCOM 

Register 15 - Always zero 
Other - Unchanged 
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XNMRALLO - Allocate Output Data Set Routine 


STEP 01 


INnRO 

c> 

XNMRALLO 


INMRALLO allocates all the output data 
sets for the RECEIVE operation. The output 
data sets include the primary output data 
set specified by user and also temporary 
data files which will be used by the 
partitioned data set reload and data 
decipher processes. 


XNHRATXT 


TUPLIST1 TUPDIR 
TUDSN TUMEM 
TUSTATSV TUDIR 


XNMRCOM 



XNMRCXNF 


FIEBCOPY FRSTTEMP 


XNMRCXNF 


XEFZB4D0 


S99VRBAL 



Complete the allocation text 
units and build the request 
block for dynamic 
allocation. 



J\XNMRATXT 


TUPDSN 

TUPMEM 

TUPEND1 

TUPEND2 

TUPDIR 

TUMEML 

TIME MV 

TUSTATSV 

TUDIRV 


\XEFZB4D0 


S99RBPTR 

S99RBPND 

S99RB 

S99RBLN 

S99TXTPP 


XEFZB4D0 


IS99RBPTR 


Allocate the primary output 
data set. First> attempt is 
made to allocate an existing 
data set. Xf this is 
successful and the user has 
defaulted the dsname and 
disposition* prompt the user 
to see if the data set 
should be overwritten. Xf 
the existing data set 
allocation fails* add space 
parameters to the allocation 
text units and change the 
disposition to 'NEW'. Then 
retry the allocation to see 
if a new data set can be 
allocated* 


KXNMREGS 

1/1- 1 

R1 


ALLOCATE A OUTPUT DATA SET AS OLD. 

/'->\j- 

\i-1/| DYNALLOC 
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ZKJEFFMT 


ZNMCCOM 


|CPPLPTR 

ZNMRATXT 


ITUDSNL 


ZNMREGS 


D. ISSUE MESSAGE INMR043 IF PROMPTING IS 
NOT ALLOWED. 

/L— ~ J \|- 

\|- 1 / INMCMSGI 


MNMREGS 

|/|- 1 

R1 


KINMCCOM 

\/\ - 

MSG# 

MSGFLAGS 

PLAINMSG 

FRC12 

RC 
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XNNRALL0 - Allocate Output Data Set Routine 


STEP 02E 


XNMREGS 


E. ISSUE MESSAGE INMR044 FOR OTHER PROMPT 
ERRORS._^ 

\«-1/| INMCMSGI _ 



J \XNMCCOM 


MSG# 

MSGFLAGS 

OECMSG 

FRC12 

RC 

MSGFIXED 


MNMREGS 
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XNMRALLO - Allocate Output Data Set Routine 


STEP 02X 


XNMREGS 


INMRCOM 


XEFZB4D0 


S99ERR0R S99INF0 


XNMRATXT 


XNMRATXT 


XNMREGS 


KINMCCOM 



XEFZB4D0 


XNMRATXT 


ITUDSNL 


XNMCCOM 


XNMRATXT 


ITUDSNV TURTORGVI 


XNMRATXT 


ITUDSNL 


X. ISSUE MESSAGE INMR067 IF THE DEFAULT 
DSNAME WAS INVALID. 


INMCMSGI 


J. ISSUE MESSAGE XNMR060 IF THE OUTPUT 
ALLOCATION FAILED. 


INMCMSGI 


K. ISSUE MESSAGE INMR063 TO IDENTIFY THE 
ALLOCATION FAILURE. 


INMCMSGI 


03 Check the output data set 
1 — 1 characteristics, so that 
sequential data sets are 
restored to sequential data 
sets (or pds members) and 
that partitioned data sets 
are restored to partitioned 
datasets. 

A. ISSUE MESSAGE INMR069:WHEN DATASET 
ORGANIZATION INVALID. 

/l -N- 

\i-./I INMCMSGI 




MSG* 

MSGFLAGS 
STRNGMSG 
ALLOCMSG 
FRC12 
RC 

MSG99PTR 

MSGSTRL 

MSGSTRP 


KXNMRCOM 
1 1 FALL0U [ 

KXNMCCOM 

l'l- 

MSG* 

MSGFLAGS 

STRNGMSG 

FRC12 

RC 

MSGSTRL 

MSGSTRP 
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XNMRALLO - Allocate Output Data Set Routine 


STEP 03B 


ZNMRATXT 


TUDSNV TURTORGV 


XNMRCXNF 


FIEBCOPY 


1NMRC0M 


ZNMRATXT 


I 


B. ISSUE MESSAGE INMR062:WHEN A MEMBER NAME 
IS REQUIRED. 


INMCMSGI 


ZNMRATXT 


TUDSNV TURTORGV 


ZNMRCOM 


ZNMRCINF 


FIEBCOPY 


ZNMRATXT 


ZNMRATXT 


TURTDDNV 


ZNMRCOM 



KZNMCCOM 


MSGFLAGS 

STRNGMSG 

FRC12 

RC 

MSGSTRL 

MSGSTRP 


C. ISSUE MESSAGE INMR061:KHEN A PDS IS 
REQUIR ED. 

\i-1/| INMCMSGI 



MSG# 

MSGFLAGS 

STRNGMSG 

FRC12 

MSGSTRL 

MSGSTRP 
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INMRALLO - Allocate Output Data Set Routine 


STEP 04 


XNMRCINF 


FIEBCOPY 


IEFZB4D0 


S99RBPTR S99RB 


INMRCOM 


INMRCINF 


IEFZB4D2 

DALSTATS DALBLKLN 
DALPRIME DALSECND 
DALROUND DALUNIT 
DALRTDDN 



> 04 Allocate temporary data sets 
11 — 1 for IEBC0PY and Access 

Method Services REPRO. These 
data sets will be used by 
the respective utility 
routines as input files* 


A. ALLOCA TE AN IEBCOPY INPUT FILE. 

\l- ./DYNALLOC 



KINMRCOM 


REST2DDN 


S99RBPTR 
S99RBPND 
S99RB 
S99TXTPP 
S99TUP 
S99TUPND 
S99TUKEY 
S99TUNUM 
S99TULNG 
S99TUPAR 

MNMRE6S 

^Iri I 


XEFZB4D0 


S99TULNG 


XNMXPRMD 


IPARMVIOL PARMVIO 


XNMRE6S 


B. ISSUE MESSAGE INMR070 IF THE ALLOCATION 
FAILED._^ 

\.-«/| INMCMSGI 


KINMCCOM 

i/|- 

MSG# 

MSGFLAGS 

PLAINMSG 

MSGRC 


XEFZB4D0 


C. ISSUE MESSAGE INMR071 TO IDENTIFY AN 
ALLOCATION ERROR. 

/■- 1 \,- 

\i-1/| INMCMSGI 


KINMCCOM 

i/|- 

MSG# 

MSGFLAGS 

STRNGMSG 

ALLOCMSG 

FRC12 

RC 

MSG99PTR 

MSGSTRL 

MSGSTRP 
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IULPDSDDN COOEDDN 



mm 

MSGFLAGS 

STRNGMSG 

ALLOCMSG 

FRC12 

RC 

MSG99PTR 

MSGSTRL 

MSGSTRP 


MNMRCON 


■71 


MHADCB 


DCBDDNAM 


MNMCCON 

IkodidptrI 
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INMRCODE - MODULE DESCRIPTION 


DESCRIPTIVE name: File Decryption Routine 
FUNCTION: 

INMRCODE invokes the Access Method Services REPRO 
command to decipher the incoming data. The 
command input file is allocated and written by 
INMRCODE based on DECIPHER options obtained from 
the user. Message output will be either to a 
sysout file or to the terminal. 

ENTRY POINT: INMRCODE 

PURPOSE: See FUNCTION 

LINKAGE: PLS CALL 

CALLERS: INMRM 

INPUT: 

All input is provided via the RECEIVE command 
communications area INMRCOM. The following 
fields are used: 

CODEDDN (input file for AMS), ULPDSDDN (output 
file for AMS) 

OUTPUT: 

Decrypted file written to DDNAME specified by 
ULPDSDDN. 

EXIT NORMAL: BR 14 Return to caller 

EXTERNAL REFERENCES: 

ROUTINES: 

The following are invoked via PLS CALL: 

INMCMSGI - Message issuing routine 
INMRZ - Receive exit-invocation routine 

The following are invoked via CALLTSSR: 

IKJEFF02 - TSO message issuing routine 

The following are invoked via LINK SVC: 

IDCAMS - Decrypt the file 

DATA AREAS: 

INMRCOM - RECEIVE command communications area 
INMCCOM - Common parameter structure 
INMRCINF - Received file description table 
INMXPRMD - Installation options block 

CONTROL BLOCKS: 

DCB, CVT, IKJEFFMT, 

IEFZB4D0, IEFZB4D2, ECT, CPPL 

TABLES: 

CODESTMT - AMS control statement structure 
COPYDDNM - DDNAME substitution table for IEBCODE 
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INMRCODE - MODULE OPERATION 


INMRCODE performs the following functions: 

1) Allocate temporary files for the control 
statements and output messages. 

2) OPEN the plain text file to insure that it 
has DCB values assigned. 

3) Prompt the user to supply decipher 
options for the REPRO command. 

4) Invoke the INMRZ13 exit routine. 

5) Build the REPRO command and write to 
the control statement file. 

6) Invoke IDCAMS to perform decryption. 

7) Free control input and message files. 
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XNMRCODE - DIAGNOSTIC AIDS 


ENTRY POINT NAME: xnmrcode 


MESSAGES: 

INMR042I RECEIVE FAILED* SYSTEM CANNOT PROMPT YOU 
FOR INFORMATION. 

INMR043I PROMPTING NAS INHIBITED. 

INMR044I RETURN CODE m FROM IKJEFF02. 

INMR080I RECEIVE COMMAND TERMINATED. FAILURE IN 
DECRYPTION PROCESSING. 

INMR081I ALLOCATION FAILED FOR REPRO COMMAND 
xxx FILE. 

INMR082I RETURN COOE nn FROM IDCAMS REPRO COMMAND 

INMR800I THE RECEIVE COMMAND FAILED. THE 
PUTGET SERVICE ROUTINE ISSUED 
RETURN CODE , nn'. 

INMR916I DATASET HAS ENCIPHERED. ENTER AMS REPRO 
DECIPHER OPTIONS TO RESTORE THE FILE.* 

XNMR917I YOU MAY ENTER ANY SUBFIELD OF THE 

DECIPHER OPERAND OF THE AMS REPRO COMMAND. 

INMR918I VALID OPTIONS INCLUDE: DATAKEYFILE, 

DATAKEYVALUE > SYSTEMKEY, SYSTEMDATAKEY, 
AND SYSTEMKEYNAME. 


ABEND CODES: None 

WAIT STATE CODES: None 

RETURN CODES: 

EXIT NORMAL: 

Return code in register 15 is always zero. 


REGISTER CONTENTS ON ENTRY: 

Register 8 - address of INMCCQM 

Register 13 - Save area address 
Register 14 - Return address 
Register 15 - Entry Point address 
Other - Unpredictable 


REGISTER CONTENTS ON EXIT: 

EXIT NORMAL: 

Register 15 - Always zero 
Other - Unchanged 
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INMRCODE - File Decryption Routine 


STEP 01 


INMRM 

c> 

INMRCODE 


INMRCODE invokes the Access Method 
Services REPRO command to decipher the 
incoming data. The command input file is 
allocated and written by INMRCODE based on 
DECIPHER options obtained from the user. 
Message output will be either to a sysout 
file or to the terminal. 


INMCCOM 


INMCCOM 


.MODIDPTR 


IEFZB4D0 

S99RBPTR S99RB 

XEFZB4D2 


> 01 Initialize dynamic DCB 
\ 1 — 1 areas* 

/ 


DALTRK 

DALPRIME 

DALUNIT 

DALRTDDN 


IEFZB4D0 


S99TULNG 


XNMXPRMD 


PARMVIOL PARMVIO 


INMREGS 



Allocate a control record 
file and a message file that 
will be used by IDCAMS 
during the decipher process* 


A. ALLOCATE THE CONTROL INPUT FILE. 


DYNALLOC 



B. ISSUE MESSAGE INMR080 IF THE ALLOCATION 
FAILED. 

/*- l \i- 

\i-«/ INMCMSGI 


MNMCCOM 

IMODIDPTRI 



MEFZB4D0 


S99RBPTR 

S99RBPND 

S99RB 

S99TXTPP 

S99TUP 

S99TUPND 

S99TUKEY 

S99TUNUM 

S99TULNG 

S99TUPAR 


MNMREGS 


MNMCCOM 


MSG# 

MSGFLAGS 

PLAINMSG 

MSGRC 


IEFZB4D0 


C. ISSUE MESSAGE INMR081 TO IDENTIFY THE 
FAILURE._^ 

\l -i/f INMCMSGI 


J MNMCCOM 

- 

MSG# 

MSGFLAGS 

STRNGMSG 

ALLOCMSG 

FRC12 

RC 

MSG99PTR 

MSGSTRL 

MSGSTRP 
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XNMRCODE - File Decryption Routine 


STEP 02D 


ZNMRCOM 


IEFZB4D0 


S99RBPTR S99RB 


IEFZB4D2 


DALTERM DALRTDON 


KXHADCB 


XEFZB4D0 


.S99TULNG 


IEFZB4D0 
S99RBPTR S99RB 
XEFZB4D2 


. DALSYSOU DALRTDDN 


XNMRCOM 


XEFZB4D0 


S99TULNG 


XNMREGS 



D* ALLOCATE THE TERMINAL MESSAGE FILE. 


DYNALLOC 


E. ALLOCATE THE SYSOUT MESSAGE FILE* 


DYNALLOC 



F. ISSUE MESSAGE IIMR080 IF THE ALLOCATION 
FAILED*_^ 

\.-1/| INMCMSGI 


S99RBPTR 

S99RBPND 

S99RB 

S99TXTPP 

S99TUP 

S99TUPN0 

S99TUKEY 

S99TUNUM 

S99TULNG 


KINMREGS 

l'[- 

Rl 

J \XNMCCOM 

i / i - 

mm 

MSGFLAGS 

PLAINMSG 

MSGRC 


IEFZB4D0 


G* ISSUE MESSAGE INMR0S1 TO IDENTIFY THE 
FAILURE* 

/l -N- 

\.-./I INMCMSGI 


MNMCCOM 

\/\ - 

MSG# 

MSGFLAGS 

STRNGMSG 

ALLOCMSG 

FRC12 

RC 

MSG99PTR 

MSGSTRL 

MSGSTRP 
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XNMRCODE - File Decryption Routine 


STEP 03 


IHADCB 


jDCBDDNAM 

INMRCON 


ULPDSDDN 


IHADCB 


IDCBOFOPN 


INMCCOM 


IKJECT 


ECTBK6R0 


XKJEFFMT 


MSGCSECT 


INMCCOM 


CPPLPTR 


XKJEFFMT 


MS6TABLE 


Perform an OPEN of the file 
that will be used as the 
output file of the XDCAMS 
decipher process. This OPEN 
is done to insure that the 
file has valid LRECL* 
BLKSIZE, and RECFM values 
assigned. Use the DEVTYPE 
macro to determine the 
maximum b locks ize and choose 
a reasonable blocksize. The 
actual assignment of new 
values is performed by the 
OPEN exit in segment 
XNMRCOPX. 


A. GET OUTPUT DEVICE TYPE INFORMATION. 

/ l -* N |- 

\i- 1 / DEVTYPE 


(Rl)> DEVTYPEA, DEVTAB 


B. OPEN THE OUTPUT FILE. 



(OUTOCB, OUTPUT)* MF=CE, 
OPENLIST) 


-> C. CLOSE THE OUTPUT FILE IN ORDER TO SET 
ATTRIBUTES. 



(OUTDCB), MF=(E> OPENLIST) 


-> 04 Prompt the user for decipher 
11 —- J options. Pass these to 

XDCAMS as subfields of the 
DECIPHER keyword. 

A. ISSUE PROMPT INMR916 TO OBTAIN THE 
DECIPHER OPTIONS. 


■ 


KIHADCB 

i/|-1 

DCBDDNAM 

KXNMRE6S 

I 




MSGTABLE 

LISTPTR 

MTCPPL 

MTHIGH 

MSGCSECT 

MTHEXSW 

MTPGMSW 

MSGZO 
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XNMRCODE - File Decryption Routine 


STEP 04B 


INMREGS 


B. ISSUE MESSAGE INMR043 IF PROMPTING IS 
NOT ALLOWED* 

/I-1\.- 

\i -./I INMCMSGI 


KINMCCOM 

i/|- 

MSG# 

MSGFLAGS 
PLAINMSG 
FRC12 
RC 


INMREGS 


J\INMCCOM 


IKJCPPL 


C. ISSUE MESSAGE INMR044 FOR ANY OTHER 
PROMPT ERRORS. 


INMCMSGI 


MSG# 

MSGFLAGS 

DECMSG 

FRC12 

RC 

MSGFIXED 


CPPLUPT CPPLECT 


D. OUTPUTS PTGTOLD,SINGLE,TERM), 
TERMGET=C EDIT, WAIT) ,MF=( E ,IOPL ) 


R6 R7 


PUTGET 


PARM=PGPB, UPT=(R6), 
ECT=<R7), ECB=PTGTECB 


INMREGS 


MKJEFFMT 


E. ISSUE MESSAGE INMR800 FOR PUTGET ERRORS 


RETMSG 


XNMCCOM 


INMCMSGI 


MSG# 

MSGFLAGS 

DECMSG 

MSGFIXED 


aZlILfiid 


INMRCOM 

FNOCIPHR 

INMRCOM 


ULPDSDDN CODEDDN 


Build the IDCAMS control 
statements. Each control 
statement is composed of the 
text "REPRO XNFXLE(ddn) 
OUTPILE(ddn) DECIPHER!" the 
decipher options are 
supplied by the user or the 
RECEIVE decryption routine 
XNMRZ13. 


Build the file containing 
the IDCAMS control 
statements* complete the 
utility parameter list* and 
invoke the IDCAMS utility. 


REPROPTR 
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ZNMRCODE - File Decryption Routine 


STEP 06A 
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XNMRCODE - File Decryption Routine 


STEP 07 
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INMRF - MODULE DESCRIPTION 


DESCRIPTIVE name: Transmission File Reload To Log Routine 
FUNCTION: 

INMRF reads converted records from the JES 
spool and rebuilds them in their original 
format. INMRF then writes to the log file. 

ENTRY POINT: INMRF 

PURPOSE: See FUNCTION 
LINKAGE: PLS CALL 
CALLERS: INMRM 
INPUT: 

Input parameters via the RECEIVE command 
communications area INMRCOM. The following 
fields are used: 

INPDCBP, LOGPTR, RRECL, FPREVIEW 

Input data is read from the input file whose 
DCB is pointed to by INPDCBP. 

OUTPUT: 

Output data is written to the user's log file (DCB 
pointed to by LOGPTR). 

EXIT NORMAL: BR 14 Return to caller 

EXTERNAL REFERENCES: 

ROUTINES: 

The following are invoked via PLS CALL: 

INMCMSGI - Message issuing routine 

The following are invoked via CALLTSSR: 

IKJEFF02 - TSO message issuing routine 

DATA AREAS: 

INMRCOM - RECEIVE command communications 
area 

INMCCOM - Common parameter structure 
INMRCINF - Received file description file 

CONTROL BLOCKS: CVT, DCB, IKJEFFMT, CPPL, ECT 

TABLES: INREC - Input file record 
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XNMRF - MODULE OPERATION 


The function of this module is to copy records 
from an input file (normally JES) to the user's 
log file* The following steps are performed: 

1) Read the input records* Look at the contents 
of the record to see if carriage control was 
appended by another operating system* 

If so, skip past the first character* 

2) Using pieces from the input records, build 
the output records* Write each record to the 
user's log file and write it to the terminal* 
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XNMRF - DIAGNOSTIC AIDS 


ENTRY POINT NAME: inmrf 


MESSAGES: 

INMR043I PROMPTING WAS INHIBITED. 

INMR044I RETURN CODE , nn' FROM IKJEFF02. 

INMR068I RECEIVE ENDED. INPUT RECORD LENGTH nm 
IS TOO LONG. 

INMR108I RECEIVE COMMAND TERMINATED. TRAILER 
RECORD MISSING. 

INMR130I RECEIVE COMMAND TERMINATED. INPUT 
DATASET UNUSABLE. 

INMR136I system standard I/O error message. 

XNMR138I RECEIVED RECORD LONGER THAN OUTPUT 
BL0CKSI2E. 

INMR800I THE RECEIVE COMMAND FAILED. THE 
PUTGET SERVICE ROUTINE ISSUED 
RETURN CODE 'nn*. 

INMR933A TRAILER RECORD MISSING. ENTER 
DELETE OR END. 


ABEND CODES: None 


WAIT STATE CODES: None 


RETURN CODES: 

EXIT NORMAL: 

Return code in register 15 is always zero. 


REGISTER CONTENTS ON ENTRY: 

Register 8 - Address of INMCCOM 

Register 13 - Save area address 
Register 14 - Return address 
Register 15 - Entry point address 
Other - Unpredictable 


REGISTER CONTENTS ON EXIT: 

EXIT NORMAL: 

Register 15 - Always zero 
Other - Unchanged 
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INMRF - Transmission File Reload To Log Routine 


STEP 01 


INMRM 

INMRF 


INMRF reads converted records from the JES 
spool and rebuilds them in their original 
> format. INMRF then writes to the log file. 


INMRCOM 


IRBLKSI RLRECL 


XKJPTPB 


INMRCOM 


INPDCBP 


INMRCOM 


-> Oil Perform the initialization 
1 — 1 for INMRF. Initialize 
,/ control values and set the 
DCB exit routine addresses. 


MKJPTPB 


INMRCOM 

FNOLOS FLOGOPN 
SEGFIRST 


INMRCOM 


02 Copy the data from the input 
1 —' file to the log file. Use 
the GETXNP routine to build 
input segments that are then 
written to the output file. 

A. FIND THE LENGTH TO MOVE FROM INPUT. 


GETINP: 07 


B. WRITE THE DATA RECORD TO THE LOG. 



p 

PTPB 

I Lmhadcb 




DCBEODA 

DCBSYNA 



INMRCOM 


| IOPLAREA 



MNMRE6S 


R0 R1 


MNMREGS 


C. DISPLAY THE DATA RECORD TO THE USER 
/I-1\- 

\l-1/ PUTLINE 



PARM=PTPB, 

OUTPUT-!(R2),,,DATA), 
MF=( E>( 1)) 


INMRCOM 


INMRCOM 


Process the control record 
that follows the data 
segments. This record is 
either an XNMR03 record 
preceding the next data file 
or the INMR06 transmission 
trailer record. If it is an 
XNMR03 record, read the 
following data segment. If 
it is an INMR06 record or a 
PROFS trailer record, set up 
a dummy segment. 
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ZNMRF - Transmission File Reload To Log Routine 


STEP 03A 


XNMRCOM 


-> A. READ THE NEXT PHYSICAL RECORD. 
/1_J\.- 

\i- 1 / GETREC: 08 


XNMRCOM 


XNMRCOM 


jINRPTR INRLEN 
XNMRCOM 


XNMRCOM 


.INRPTR INRLEN 


XNMRCOM 


XNMRCOM 



IKJEFFMT 


MSGTABLE 


INMCCOM 


.CPPLPTR 


XNMREGS 


04 Xssue error termination 
J messages for INMRF. 

A. ISSUE PROMPT INMR933 TO OBTAIN DELETE OR 
END. 

/\ - 1 \.- 

\|-1/ CALLTSSR 

EP=IKJEFF02, MF=(E>(I)) 


B. ISSUE MESSAGE INMR043 IF PROMPTING IS 
NOT ALLOWED. 

\«- i/lINMCMSGI 


\XNMRCOM 

/.- 

SEGL 

SEGF 

SEGFIRST 




\IKJEFFMT 


MSGTABLE 

LISTPTR 

MTCPPL 

MTHIGH 

MSGCSECT 

MTPGMSW 

MSGID 


\XNMREGS 


KXNMCCOM 

i/|- 

MSGS 

MSGFLAGS 

PLAINMSG 

FRC12 

RC 
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XNMRF - Transmission File Reload To Log Routine 


STEP 04C 


ZNMRE6S 



XNMRCOM 

Irlrecl 


C. ISSUE MESSAGE INMR044 FOR OTHER PROMPT 
ERRORS. 


INMCMSGX 


0. OUTPUTSPTGTOLD,SINGLE,TERM), 
TERMGET=(EDIT>WAIT),MF=<E»I0PL) 


PARM=PGPB, UPT=CR6)» 
ECT=(R7), ECB=PTGTECB, 


INMCMSGI 


F. ISSUE MESSAGE INMR068 IF THE RECORD 
LENGTH IS TOO LONG FOR THE LOG. 


INMCMSGI 


MNMCCOM 


MSG# 

MSGFLAGS 

DECMSG 

FRC12 

RC 

MSGFIXED 


R6 R7 



MSG# 

MSGFLAGS 

DECMSG 

FEND 

MSGFIXED 

MNMCCOM 

i/|- 

MSG# 

MSGFLAGS 

DECMSG 

FRC12 

FEND 

RC 

MSGFIXED 


G. ISSUE MESSAGE INMR130 FOR AN INPUT 0/0 
ERROR. 


- 1 / 


INMCMSGI 


MNMCCOM 

i/|- 

MSG# 

MSGFLAGS 

PLAINMSG 


H. ISSUE MESSAGE INMR136 TO DESCRIBE THE 
0/0 ERROR. 


\|- 1 / 


INMCMSGI 


MNMCCOM 

l/f- 

MSG# 

MSGFLAGS 

STRNGMSG 

FRC12 

RC 

MSGSTRL 

MSGSTRP 
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INHRF - Transmission File Reload To Log Routine 


STEP 04X 
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XNMRF - Transmission File Reload To Log Routine 


STEP 07 


XNMRCOM 


-1/ 

GETTNP 


07I Build input segments for 
r—■* XNMRF. On the first call* 
prepare the first segment 
1 header but read no data. On 
subsequent calls, always 
read the data for a segment 
and set up the header for 
the next segment. 


XNMRCOM 


XNMRCOM 


IINRPTR INRLEN 


\XNMRCOM 
^IsEGL I 

'SEGFIRST 1 



\XNMRC0M 

/.- 1 

SEGF 

INRPTR 

INRLEN 
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FEXTRACC FINPV 


XNMRCOM 


RECCT 

INRPTR r 

INRLEN 

INRLEN1 | 


INMRE6S 


ZHADCB 


DCBLRECL 


A. READ THE INPUT RECORD. 

N l- \ / 

GET 


(IDCBPTR) 

B. RETURN TO THE 

• CALLER. J 


• 
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INMRLOGO - MODULE DESCRIPTION 


DESCRIPTIVE NAMES LOG OPEN Routine 
FUNCTION: 

INMRLOGO performs initialization for the log 
data set used by the RECEIVE command. It uses 
a previously initialized log data set if that is 
appropriate, otherwise it issues SVC 99 to 
allocate the new data set and issues OPEN to 
open the data set* INMRLOGO writes the header 
records in each log entry* 

ENTRY POINT: INMRLOGO 

PURPOSE: See FUNCTION 

LINKAGE: PLS CALL 

CALLERS: INMRO 

INPUT: 

All input is provided via the RECEIVE command 
communications area* The following fields are used: 

NICKNAME, USERID, LOGUID, LOGNQDE, CPPLPTR, 

LOGDSN, FLOGOPN, LOGPTR 

OUTPUT: 

The log data set is open. The log entry in the 
data set contains the separator record and the 
log header record. 

EXIT NORMAL: BR 14 Return to caller 

EXTERNAL REFERENCES: 

ROUTINES: 

The following are invoked via PLS CALL: 

INMCMSGI - Message issuing routine 
INMRQ - Nickname resolution routine 

DATA AREAS: 

INMRCOM - RECEIVE command communications area 
INMCCOM - Common parameter structure 

CONTROL BLOCKS: 

DCB, 

IEFZB4D0, IEFZB4D2 

TABLES: LOGMSG - Log header record 
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XNMRLOGO - MODULE OPERATION 


XNMRLOGO performs the following functions: 

1) Invokes the nickname lookup routine (INMRQ) 
to get a nickname for this user. 

2) Builds the name of the log data set. The 
name is 'prefix.LOG.MISC' if there is no entry 
in the nicknames file. If there is an entry 
in the nicknames file and it specifies 
LOGNAME > the specified name is uses as the 
last qualifier of the log data set name. 

3) Invoke IKJDAIR to search the system catalog 
to find an entry for the log dataset. If the 
log dataset is cataloged> the log dataset is 
allocated as (mod>keep)> otherwise the log 
dataset is allocated as (rtew>catlg). 

4) Opens the log data set and write a separator 
record and the entry header record. 
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ZNMRL060 - DIAGNOSTIC AIDS 


ENTRY POINT NAME: INMRLOGO 


MESSAGES: 

INMR090I RECEIVE COMMAND LOGGING FUNCTION 
TERMINATED. 

XNMR091X ERROR ALLOCATING LOG DATASET •dsname*. 
INMR092I OPEN ERROR FOR LOG DATASET •dsname 1 . 
INMR093I LOG ENTRY WILL BE WRITTEN TO DATASET 
•dsname*• 


ABEND CODES: None 


WAIT STATE CODES: None 


RETURN CODES: 

EXIT NORMAL: 

Return code set in register 15 

0 - Everything is normal. 

4 - Some kind of an error. 


REGISTER CONTENTS ON ENTRY: 

Register 8 - Address of INMCCOM 

Register 13 - Save area address 
Register 14 - Return address 
Register 15 - Entry point address 
Other - Unpredictable 


REGISTER CONTENTS ON EXIT: 

EXIT NORMAL: 

Register 8 - Address of INMCCOM 

Register r 15 - Return code 
Other - Unchanged 
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inmrlogo - LOG OPEN Routine 


STEP 01 


PARAMETERS 


COMPTR1 


INMRO 

c> 

INMRLOGO 

->\ 

i-1/ 


INMRLOGO performs initialization for the 
log data set used by the RECEIVE command. 
It uses a previously initialized log data 
set if that is appropriate* otherwise it 
issues SVC 99 to allocate the new data set 
and issues OPEN to open the data set. 
INMRLOGO writes the header records in each 
log entry. 


INMCCOM 



Initialize for processing 


INMRQ 


KINMCCOM 


MODIDPTR 


Si Build the correct log data 
- 1 set name and check to see if 
it is already allocated and 
opened. If so* bypass the 
ALLOCATE and OPEN. If a new 
file is required* issue a 
CLOSE for the previous log 
and perform the ALLOCATE and 
OPEN for the new log data 
set. 

CLOSE THE PREVIOUS LOG DATA SET. 


KXNMREGS 

1 / |- 1 

Iris 
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XNMRLOGO - LOG OPEN Routine 


STEP 02F 


INMREGS 


F* ISSUE MESSAGE INMR090 IF ALLOCATION 
FAILED. 

/ l —* N |- 

\|-./! INMCMSGI 


J MNMCCOM 

1/f-1 

MSG# 

MSGFLAGS 

PLAINMSG 

MSGRC 


INMRCOM 


IHADCB 


IDCBOFOPN 


INMRCOM 


MNMCCOM 

/.- 

MSG# 

MSGFLAGS 

STRNGMSG 



I. ISSUE MESSAGE INMR092 IF THE OPEN 
FAILED. 


INMCMSGI 


MSG# 

MSGFLAGS 

STRNGMSG 

NSGSTRL 

MSGSTRP 


INMRCOM 


ILOGDSNL 


IHADCB 


DCBOFOPN 


INMRCOM 

LOGDEFL LOGDEF 
LCGNAMEL LOGNAME 
LOGDSN 

INMRCOM 

ILOGDSNL 


If the log data set is not 
the default log name (i.e. 
the name taken from the 
names file entry1, tell the 
user the name of the log 
file used. Then build and 
write the first several 
records of the log entry, 
specifically (l)a line of 
asterisks, (2) a record 
denoting the RECEIVE 
command, the current time, 
and the name of the data set 
received, and Ola record 
describing the sender of the 
transmission. 



MNMRCOM 

/.- 1 

FLOGOPN 

MNMCCOM 

/, - 1 

MSG# 

MSGFLAGS 

STRNGMSG 

MSGSTRL 

MSGSTRP 
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ZNMRL060 - LOG OPEN Routine 


STEP 03A 


A. ISSUE MESSAGE INMR093 IF LOGNAME IS MOT 
THE DEFAULT. 


\i-1/ 


INMCMSGI 


ZNMRCON 

Ilogptr 


INMRCOM 


FRECVACK INFCOUNT 


LOGMSG 


INMRCOM 


LOGPTR RDATE 
INFPTR1 


XNMRCXNF 


!INFCHAIN ROSNAME 
INMRCOM 
FINVALID 
INMRCOM 


FUID 

FNODE 

NICKNAME 

NAME 

LOGPTR 

FDATE 


XNMRCOM 


INFCOUNT 


XNMRCXNF 


FMEMR 


XEFZB4D0 


S99TUNUM 


XNMRCOM 


LOGPTR j 

XNMRCXNF 

MEMLPTR j 

XEFZB4D0 

IS99TULEN S99TUPRM r 


B. WRITE A LINE OF ASTERISKS. 


D. WRITE THE SENDER DESCRIPTION. 

/I- 1 \. - 

\i-i/l PUT 


I(R1), LOGTO 

I 

04 Xf there was a list of 
— 1 members transmitted, build 
log records containing that 
list of members. 

A. WRITE THE MEMBER NAMES TO THE LOG. 






•\XNMREGS 

1^1 

R1 



KXNMREGS 

i / \ - 1 

|R1 






\XNMCCOM 


MODIOPTR 
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INMRM - NODULE DESCRIPTION 


DESCRIPTIVE NANE: RECEIVE Command Main Module 
FUNCTION: 

The INMRM module is the controlling module for 
the RECEIVE command. It performs command 
initialization fimctions» allocates the input 
filets) and then invokes other routines to do 
the remaining functions. 

ENTRY POINT: INMRM 

PURPOSE: See FUNCTION 

LINKAGE: ATTACH 

CALLERS: TSO terminal monitor program 

INPUT: Standard TSO parameter list from the TMP. 

OUTPUT: Received file stored in the users data set. 

EXIT NORMAL: BR 14 Return to Caller 

EXTERNAL REFERENCES: 

ROUTINES: 

The following are invoked via PLS CALL: 

INMCMSGI - Message issuing routine 
INMCR - TRANSMIT and RECEIVE ESTAE routine 
INMCTTME - Convert GMT to local time routine 
INMRALLO - Allocate output data set routine 
INMRCODE - File decryption routine 
INMRMSG - Message module 
INMRF - Transmission file reload to log 
routine 

INMRNTFY - Send user notification routine 
INMRO - Read and process control records 
routine 

INMRPDS - PDS reload routine 

INMRSCMD - Command scan subroutine 

INMRUINP - User prompt routine 

INMRVBS - INMCOPY restore routine 

INMR80 - Read as is routine 

INMRZ - RECEIVE exit-invocation routine 

The following are invoked via CALLTSSR: 

IKJEFF02 - TSO terminal message routine 

DATA AREAS: 

INMRCOM - RECEIVE command communications 
area 

INMCCOM - Message issuing parameter area 
INMXPRMD - Installation options block 

CONTROL BLOCKS: 

CVT, DCB, SSOB, SSIB, DSCB, PSCB, IOPL, 

JESCT, CPPL, PPL* TCB, JSCB, PSA, 

IEFZB4D0, IEFZB4D2, UPT, ECT 

TABLES: 

INREC - Input record general format 
CBUF - TSO command buffer format 
LOGDEL - "DELETED" record for log 
LOGSTOR - "STORED" record for log 
LOGERR - "ERROR" record for log 

GETLBUF - GETLINE buffer 
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INMRM - MODULE OPERATION 


INMRM is a TSO command that reconstructs data transmitted 
via the TRANSMIT command. It will either process a single 
data set or will scan all data sets and prompt the user for 
reconstruction information. 

Input files to this program are normally kept on the spool 
by JES and accessed via the external writer interface. 

The RECEIVE command processes all files queued for the user. 
First* the top file is selected* allocated* and opened. 
Header and message records are read and sent to the user. 
IKJEFF02 is used to prompt for overriding data set 
parameters. The data set is restored* copied* or deleted 
and RECEIVE processing continues with the next file. 
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ZNMRM - DIAGNOSTIC AIDS 


ENTRY POINT NAME: INMRM 


MESSAGES: 

INMROOOI NO MORE FILES REMAIN FOR THE RECEIVE 
COMMAND TO PROCESS. 

INMR001I RESTORE SUCCESSFUL TO DATASET ’dsn*. 

INMR0O2I FILE DELETED. 

INMR003I YOU HAVE NO MESSAGES OR DATA SETS TO 
RECEIVE• 

INMR004I DELETE IGNORED» FILE CONTAINS PREVIOUSLY 
RECEIVED DATA. 

INMR037I ERROR FROM JES. 

INMR040I ERROR ATTEMPTING TO PROMPT FOR DATASET 
DELETION INFORMATION. 

INMR041I PROMPTING WAS INHIBITED. 

INMR042I RECEIVE FAILED» SYSTEM CANNOT PROMPT YOU 
FOR INFORMATION. 

INMR044I RETURN CODE nn FROM IKJEFF02. 

INMR056I RECEIVE COMMAND TERMINATED. YOU ARE NOT 
AUTHORIZED TO RECEIVE DATA FOR 'userid 1 . 

INMR127I ERROR IN ALLOCATION FOR JES INPUT 
DATASET* 

IIWR128I DATASET ORGANIZATION FOR DATASET 'dsname* 
IS NOT SUPPORTED FOR RECEIVE INPUT. 

INMR129I ERROR IN ALLOCATION FOR DSNAME dsname. 

INMR130I RECEIVE COMMAND TERMINATED. INPUT 
DATASET UNUSABLE. 

INMR131I ERROR IN OPEN FOR DDNAME ddname* 

INMR132I ERROR IN OPEN FOR DATASET dsname. 

INMR133I ERROR IN OPEN FOR JES INPUT FILE. 

INMR134I DEALLOCATION FAILED FOR INPUT FILE. 

INMR137I UNABLE TO TERMINATE EXTERNAL WRITER. 

INMR145I JES IS NOT ACTIVE. 

INMR152I RECEIVE FAILED. SENDER'S NODE ID NOT 
RECOGNIZED. 

INMR153I RECEIVE failed. Userid not available. 

INMR800I THE RECEIVE COMMAND FAILED. THE 
PUTGET SERVICE ROUTINE ISSUED 
RETURN CODE 'nn'. 

INMR900I - 

INMR910I REPLY "K" TO KEEP THIS FILE ON THE SPOOL. 

INMR911I ANY REPLY OTHER THAN “K” CAUSES FILE TO 
BE DELETED. 

INMR913I THE PREVIEW OPTION IS INVALID WITH 

PARTITIONED DATASETS OR ENCIPHERED FILES. 
IT HAS BEEN IGNORED. 


ABEND CODES: 


OAF Reason coda: 
OAF Reason coda: 

OAF Reason coda: 

OAF Reason coda: 
OAF Reason coda: 


37 IEFSSREQ failed. 

127 Allocation of JES input file 
failed. 

132 OPEN of JES input file or input 
data set failed. 

134 Deallocation of JES file failed. 

137 Termination of external writer 
failed. 


WAIT STATE CODES: None 
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INMRM - DIAGNOSTIC AIDS (Continued) 


RETURN CODES: 

EXIT NORMAL: 

Return code is set in register 15. 

0 - Everything is normal. 

4 - Warning. Everything might be correct. 
8 - Error. Some function failed. 

12 - Severe error. RECEIVE terminated 
because of the error. 

16 - Terminal error: ABEND. 


REGISTER CONTENTS ON ENTRY: 

Register 1 - Address of command processor 

parameter list (CPPL) 
Register 13 - Save area address 
Register 14 - Return address 
Register 15 - Entry point address 
Other - Unpredictable 


REGISTER CONTENTS ON EXIT: 

EXIT NORMAL: 

Register 15 - Return code 
Other - Unchanged 
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INMRM - RECEIVE Command Main Module 


STEP 01 


TSO terminal monitor program 


I—I The INMRM module is the controlling module 

I Lj \ for the RECEIVE command. It performs 
! > command initialization functions* 

1 " '|/ allocates the input file(s) and then 
INMRM invokes other routines to do the remaining 
functions* 


XNMCCOM 


> 01 initialize for processing. 


A. ISSUE MESSAGE INMR152 IF CSECT INMXPARM 
IS MISSING OR IF INMXPARM IS THE IBM 
SUPPLIED DEFAULT. 



KINMCCOM 


COMPTR 

CPPLPTR 

MSG# 

MSGCSCT 

MSGFLAGS 

PLAINMSG 

FRC12 

RC 

MSGFLAGP 

KODIDPTR 


COMPTR 

MCOMID 

MCOMVER 

MSGCSCT 

MSGFLAGP 

KCOMID 

KCOMVER 

GCOMID 

GCOMVER 

CMDNAME 

GUSERID 

GFLAGS 


RCOMID 

RCOMVER 

FLAGS 

FLAGS2 

ATXTPTR 

INPDCBP 

OUTDCBP 

LOGPTR 

LOGDSNL 

LOGDSN 

CUMRECCT 

CUMFILES 
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XNMRM - RECEIVE Command Main Module 
XKJCPPL |-1\| 


CPPLUPT CPPLECT 


XEFSSOBH 


SSOB 


XHAPSA 


PSATOLD 


XKJTCB 


TCBJSCB 


XEPSSSO 


SSGBSOUT SSSO 


XNMRCOM 


10 USERID 


XNMRE6S 


R1 


XEZJSCB 


JSCBPSCB 


XKJPSCB 


PSCBUSER PSCBUSRL 


XNMRCOM 


ID 


FALTUID 

FALTOK 

FALTNOK 

ID 


XKJPSCB 


PSCBCTRL 

XNMRCOM 

Ifnonjes userid 


E. INITIALIZE SYSOUT REQUEST AREAS. 

F. ESTABLISH ESTAE RECOVERY. 

. I U 


INMCR 


G. PARSE THE RECEIVE COMMAND. 


INMRSCMD 


Invoke the INMRZ module to 
call the user startup exit 
XNMRZ01. If the caller 
specified the USERID keyword 
on the RECEIVE command, 
check the exit response the 
PSCBCTRL (TSO 0PER 
authority) to verify the 
authorization to the USERID 
keyword. 


A. INVOKE THE STARTUP EXIT INMRZ01. 


INMRZ 


B. ISSUE MESSAGE INMR056 IF THE USER NOT 
PRIVILEGED. 


INMCMSGI 


ISSUE MESSAGE INMR153 IF USERID NOT 
AVAILABLE. 

/ I ' ^ N i * — — 1 

\i-1/| INMCMSGI 



STEP 01E 
—MNMRCOM 


RPRMPTR 

RPRM2PTR 


\IKJXOPL 


IOPLUPT 

IOPLECT 

IOPLECB 


MEFSSOBH 


SSOBID 

SSOBLEN 

SSOBFUND 

SSOBSSIB 

SSOBRETN 

SSOBINDV 


MEFSSSO 


SSSO 

SSSOLEN 

SSSOPGMN 


MNMRE6S 


RO 

R1 

R14 

R1S 



MNMRCOM 


ID 

USERID 

USERIDL 


MNMCCOM 


CMDRETRY 


MNMCCOM 


MSGS 
MSGFLAGS 
STRNGMSG 
FRC12 
RC 

MSGSTRL 

MSGSTRP 


'MNMCCOM 

l /1- 

MSG# 

MSGFLAGS 

PLAINMSG 

FRC12 

RC 
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INMRM - RECEIVE Command Main Module 


STEP 03 


INMCCOM 



> 03 Set up the loop all waiting 
1 J files* The RECEIVE command 
will process as many files 
as are waiting in the JES 
spool for this userid unless 
there is some error or 
unless the user terminates 
RECEIVE processing by 
specifying END* 

04 Segment INMRMDSN performs 
— allocation for input 
datasets specified via 
INDATASET or INDSNAME. 

A. ALLOCATE THE INPUT SEQUENTIAL DATA SET. 


DYNALLOC 


KXHADCB 


S99TULNS 

XEFZB4D0 


|S99RBPTR S99RB | 

IEFZB4D2 


DALDSNAM DALMEMBR. 
DALSTATS DALRTDDNI 
DALRT0R6 

IEFZB4D0 


S99TULNG 


INMRCOM 


B. ALLOCATE THE INPUT PARTITIONED MEMBER. 


DYNALLOC 



INDSNL 

INDSN - 

INMEML 

INMEM 


INMREGS 


C. ISSUE MESSAGE INMR130 IF INPUT 
ALLOCATION FAILED. 

/I- r \«- 

\|-1/| INMCMSGI 


S99RBPTR 

S99RBPND 

S99RB 

S99TXTPP 

S99TUP 

S99TUPND 

S99TUKEY 

S99TUNUM 

S99TULNG 

S99TUPAR 


MNMREGS 

/f - 

R1 


MNMCCOM 

/«- 

MSGS 

MSGFLAGS 

PLAINMSG 

MSGRC 
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INMRM - RECEIVE Command Main Module 


STEP 04D 


INMRCOM 


INDSN 


XEFZB4D0 


S99RB 


INMRCOM 


jINDSNL 

INMRCOM 

FINMEM INDSN 

INMRCOM 


.INDSNL 



INMRE6S 

[rib 


INMCCOM 

FQUIT 

INMRCOM 


ID 


IEFSSSO 




D. ISSUE MESSAGE INMR129 TO THE DESCRIBE 
ALLOCATION ERROR* 

/I-1\.- 

\i-i/l INMCMSGI 



E* ISSUE MESSAGE INMR128 IF THE DSORG IS 
INVALID*_^ 

\i -./I INMCMSGI 


05 Segment INMRMJES invokes the 
L —JES subsystem interface 
subsystem interface module 
to select an appropriate 
external writer file. If 
this is successful, it uses 
the JES option of the SVC 99 
allocation interface to 
allocate the selected file. 

A* CHECK TO INSURE AUTHORIZATION 

/I-1\.- 

\|-1/ TESTAUTH 

FCTN=1, STATE=YES, KEY=YES> 
RBLEVEL-1 


B* ISSUE MESSAGE INMR0S7 IF THE RECEIVE IS 
NOT AUTHORIZED 



\|- 1 / 



INMCMSGI 


C* ACQUIRE KEY 0 FOR THE SUBSYSTEM REQUEST. 

/l - l \[- 

Si- 1 / MODESET 


MODE=SUP, KEY«ZERO 


D* REQUEST THE DATA SET NAME FROM JES 
/I-1\.- 

\i-«/ SSREQ 


KINMCCOM 


MSG8 

MSGFLAGS 

STRNGMSG 

ALLOCMSG 

FRC12 

RC 

MSG99PTR 

MSGSTRL 

MSGSTRP 


MNMCCOM 


MSGS 

MSGFLAGS 

STRNGMSG 

FRC12 

MSGSTRL 

MSGSTRP 


\ZNMRC0M 



DCBRECFM 

DCBBLKSI 

DCBLRECL 



MSGS 

MSGFLAGS 

PLAINMSG 

FRC12 


\ZEFSSSO 
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INMRM - RECEIVE Command Main Module 


STEP 05E 
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XNMRM - RECEIVE Command Main Module 


STEP 05K 


IEFZB4D0 
S99RBPTR S99RB 
IEFSSSO 


SSSODSN 


XEFZB4D2 


DALDSNAM DALRTDDN 
DALSSREQ 


XNMRCOM 


INDSNL INDSN 


XEFZB4D0 


S99TULNG 


XNMRE6S 



K. ALLOCA TE TH E INPUT DATASET. 

\.-«/| DYNALLOC 


La ISSUE MESSAGE INMR130 IF ALLOCATION 
FAILED ^^ 

\.-./I INMCMSGI 



MNMRCOM 

/«- 

INDSNL 

INDSN 


MEFZB4D0 


S99RBPTR 

S99RBPND 

S99RB 

S99TXTPP 

S99TUP 

S99TUPND 

S99TUKEY 

S99TUNUM 

S99TULNG 

S99TUPAR 


MNMREGS 


MNMCCOM 


MSGS 

MSGFLAGS 

PLAINMSG 

MSGRC 


IEFZB4D0 


Ms ISSUE MESSAGE INMR127 IF THE ALLOCATE 
FAILED* 

/>- ! \|- 

\i-1/| INMCMSGI 


MNMCCOM 

l/[- 

MSGS 

MSGFLAGS 

PLAINMSG 

ALLOCMSG 

FRC12 

FABEND 

RC 

MSG99PTR 


N* CREATE A DUMP OF THE ERROR 

1=1)1 ABEND 


MNMREGS 

i/|- 

R15 


X^AFS > » SYSTEM 


INMCCOM 


MNMRCOM 

/\ - 

INDDN 

INDDNL 

MHADCB 

/.- 

DCBRECFM 

DCBBLKSI 

DCBLRECL 
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INMRM - receive command Main Module 


STEP 06 


ZNMRCOM 

FXNDDN 

ZNMRCOM 

IxNDDN 


ZHADCB 


DCBRECFM DCBOFOPN 


ZNMRCOM 


ZNMRCOM 
FINDSN INDSN 
ZNMRCOM 


INDSNL 


Zssue the OPEN for the input 
file. Zf the OPEN fails, 
issue an error message that 
is appropriate to the type 
of input file CJES, 

ZNDDNAME, or INDSNAMEI. 


A. OPEN -T HE IN PUT FILE. 

\|-1/ OPEN 

(INPDCB, INPUT), MF=(E, 
OPENLIST) 


MNMRCOM 


INMCMSGI 


C. ISSUE MESSAE ? INMR132 IF THE INPUT 

DSNAME OPEN FAILEO. 

- • ■ * 


INMCMSGI 


D• ISSUE MESSAGE INMR133 IF THE INPUT 
DSNAME OPEN FAILED 

\i-i/l INMCMSGI 


Es CREATE A DUMP OF THE ERROR 

1 . ZZ| /| ABEND 


ir 

FALLIN 

I Lj\ZHADCB 


DCBDDNAM 



MNMRCOM 


FOPENIN 

FINPV 


MSG# 

MSGFLAGS 

PLAINMSG 

FRC12 

RC 


MSG# 

MSGFLAGS 

STRNGMSG 

FRC12 

RC 

.MSGSTRL . 
MSGSTRP 


J \INMCCOM 

I/. - 

MSG# 

MSGFLAGS 

PLAINMSG 

FRC12 

FABEND 

RC 

KINMREGS 

l'r-1 

R15 


IX 1 OAF •y , , SYSTEM 
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XNMRM - RECEIVE Command Main Module 


STEP 07 


07 Invoke INMRO to read the 
— 1 control records and 
determine the 

characteristics of the input 
file, invoke XNMRUXNP to 
prompt the user to enter the 
description of the output 
data set or file and any 
other restore desired 
controls. 


KXNMRCOM 

^IinfcountI 


XNMCCOM 


-> A. IF THE INPUT FILE IS O.K., PROMPT THE 
USER AND BEGIN SET UP 


XNMRCOM 


KXNMRCOM 
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INMRM - RECEIVE Command Main Module 

XNMCCOM I ->| D. BUILD THE DEFAULT OUTPUT DSNAME AND 


FQUIT 


INMRCOM 


FCOPY FDSNAME 
FSPACE1 FSPACE2 


XHAPSA : : 

- -,-- •• • 

PSATOLD : : 

--—J • + 

IKJTCB 1 I 

-1-: s 

TCBJSCB : : 

IEZJSCB I 

■ i-s ; 

JSCBPSCB : : 

IKJPSCB 1 i 

■ ■■ " i ***• : 

PSCBUPT : : 

INMRCINF 

_._l . 

FIEBCOPY FCIPHER : 

FPREVIEW s 

INMRATXT 

IEFZB4D2 

_ l 

DALBLKLN 

IKJUFT 

UPTPREFX UPTPREFLj- 

INMRCINF 

OUTBLKSI SIZE - 

RDSNAMEL RDSNAME 

INMRATXT 

TUDSNL TUDSNV - 

7USPCIV 

INMRCOM r-> F. IF THE LOG DATASET IS BEING USED AS 

OUTPUT > CLOSE AND FREE IT SO IT MAY BE 
ALLOCATED AS OUTPUT. 

G* CLOSE THE LOG 


STEP 07D 
-KINMRATXT 



DSNAME 

DSNAME L 

LOGDSNL 

LOGDSN 


IHADCB 


OCBOFOPN 


INMRCOM 


LOGPTR 


MNMREGS 
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DCBDDNAM 


S99VR&UN SQQTIJLNG 



j FIEBCOPY | 

INMRCZNF 


I PDSBLKSZ PDSLRECL 
POSRECFM OUTRECFM 
OUTBLKSI OUTLRECLI 

INMRCZNF 


FRESTLQS 


ZNMCCOM 


INMRCZNF 


ZNMRCOM 


If the data is to be copied 
as is from the input file* 
invoke INMR80. If the data 
is to be converted to its 
original format and written 
to the log file* invoke 
INMRF. 


> A. IF COPY ASIS OR 80-CHARACTER DATA 
1 RECORDS IS INDICATED* INVOKE THE COPY 
ASIS R OUTIN E. 

\.-»/| INMR80 


B. IF A NORMAL RESTORE IS INDICATED* CALL 
THE VBS COPY ROUTINE 


IF THIS IS A WRITE-TO-LOG REQUEST* CALL 
THE WRITE TO LOG ROUTINE. 


D. IF ENCODED AT SOURCE FOR COPY AS IS* 
CALL THE IEBCODE DECRYPT ROUTINE. 


S99RBPTR 

S99RBPND 

S99RB 

S99VERB 

S99TXTPP 

S99TUP 

S99TUPND 

S99TUKEY 

S99TUNUM 

S99TULNG 

S99TUPAR 
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XNMRM - RECEIVE Command Main Module 


STEP 08E 


INMCCOM 


INMRCXNF 


IFIEBCOPY 


XNMRCOM 


-> E. IF THE POS AND COPY AS IS ARE NOT NEEDED 
CALL IEBCOPY TO RELOAD. 


INMRPDS 


09 invoke the file 
— 1 postprocessing user exit 
XNMRZ12 and then free the 
output and temporary files 
used. 


XNMRCXNF 


IFRESTLOS 


-> A. IF THIS IS NOT A LOG-RESTORE, INVOKE THE 
DATA P OST-E XIT INMRZI2. 

\i-,/| INMRZ 


XNMRCOM 


FCOPY FALLOU 


XNMRCXNF 


FIEBCOPY 


XEFZB4D0 


S99RBPTR S99RB 


XNMRCOM 


ULPDSDDN 


XEFZB4D2 


KXEFZB4D0 



XEFZB4D0 


XEFZB4D0 


XEFZB4D0 


S99VRBUN S99TULNG 
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XNMRM - RECEIVE Command Main Module 


STEP 10 


XNMRCOM 


RECCT CUMRECCT 


KINMRCOM 
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XNMRM - RECEIVE Command Main Module 


STEP 10F 


XNMRCINF 


MNMCCOM 



XNMRCOM 


FNOTIFY FINDSN 


F. ISSUE MESSAGE XNMR001 IF THE RESTORE HAS 
SUCCESSFUL. 


INMCMSGI 


Xssue the termination 
message if no file was 
foundt log unsuccessful 
restore attempts, and invoke 
the notify routine if 
notification was requested 
by the sender. 



MSG» 

MSGFLAGS 

STRNGMSG 

MSGSTRL 

MSGSTRP 


I 


MNMRCOM 


INFPTR 


MNMCCOM 


A* ISSUE MESSAGE INMRQOO IF THERE ARE NO 
MORE FILES 
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INMRM - RECEIVE Command Main Module 


STEP 12 


INMCCOM 


INMRCOM 


IKJECT 


IECTBKGRD 


IKJEFFMT 


INMCCOM 



12 When severe errors have 
1 — 1 occurred in the input file, 
delete the file even though 
a restore operation was not 
possible. Prompt the user to 
specify "K” if the user 
wants the file retained. 
Otherwise, set the DELETE 
option. 

A* ISSUE PROMPT INMR910 INDICATING WHETHER 
THE FILE SHOULD BE DELETED. 

/I l\i 

\i-1/ CALLTSSR 



B. ISSUE MESSAGE INMR041 IF PROMPT IS NOT 
ALLOWED. 


INMCMSGI 


C. ISSUE MESSAGE INMR044 IF THE PROMPT 
FAILED. 

/'-K,- 

\i-1/| INMCMSGI 


D. OUTPUTS PTGTOLD ,SINGLE ,TERM ) , 

TERMGET=( EDIT,WAIT ) ,MF=( E ,IOPLAREA) 


PARM=PGPB» UPT=(R6)> 
ECT=(R7)> ECB=PTGTECB, 


E. ISSUE MESSAGE IIWR800 FOR PUTGET ERRORS 



J MKJEFFMT 

i/|- 

MSGTABLE 

LISTPTR 

MTCPPL 

MTHIGH 

MSGCSECT 

MTHEXSW 

MTPGMSW 

MSGID 

KINMREGS 






MSG# 

MSGFLAGS 

PLAINMSG 


MNMCCOM 


MSG# 

MSGFLAGS 

DECMSG 

MSGFIXED 


MNMRCOM 


MNMCCOM 


MNMREGS 


R6 R7 


MNMCCOM 
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XNMRM - RECEIVE Command Main Module 


STEP 13 


INMCCOM 

FNOFILE 

XNMRCOM 


RECCT CUMRECCT 
jCUMFILES 

XNMRCOM 

FOPENIN 

XNMRCOM 


FKEEP 

FDEL 

FALLIN 

FNONJES 


XNMCCOM 


FQUIT 


XEFZB4D0 


S99RBPTR S99RB 


XNMRCOM 


INDSNL INDSN 


XEFZB4D2 


DUNDSNAM DUNOVDSP 


XEFZB4D0 


|S99VRBUN S99TULNG 

XEFZB4D0 
S99RBPTR S99RB 
XEFZB4D2 


OUNDDNAM DUNOVDSP 


XNMRCOM 

INDDN 

XEFZB4D0 

S99VRBUN S99TULNG 
_ 

INMREGS 

Iris 


> 13 issue CLOSE for the input 
\ ■— J file and then use SVC 99 to 
/ deallocate it* Specify final 
disposition of DELETE if the 
RECEIVE processes were 
successful or the user 
specified DELETE otherwise* 
KEEP* 


'MNMRCOM 

i/|- 

RECCT 

CUMRECCT 

CUMFXLES 



D« ISSUE MESSAGE INMR130 IF THE 
DEALLOCATION FAILED. 

/i-Ki- 

\.-i/l INMCMSGI 


S99RBPTR 

S99RBPND 

S99RB 

S99VERB 

S99TXTPP 

S99TUP 

S99TUPND 

S99TUKEY 

S99TUNUM 

S99TULNG 

S99TUPAR 


\INMREGS 

t/ i-1 

i” i 

KXNMCCOM 

l/f- 

MSGS 
MSGFLAGS 
PLAINMSG 
MSGRC 
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XNMRM - RECEIVE Command Main Module 


STEP 13E 


IEFZB4D0 


E. ISSUE MESSAGE XNMR134 TO DESCRIBE THE 
ALLOCATION ERROR. 

/l_l\|- 

\i-«/ INMCMSGI 


F. CREATE A DUMP OF THE ERROR 

I - i /| ABEND 


KINMCCOM 

|/|- 

MSG* 

MSGFLAGS 

PLAXNMSG 

ALLOCMSG 

FRC12 

FABEND 

RC 

MSG99PTR 

KXNMREGS 

\/\ - 

RIB 


X‘OAF a , , » SYSTEM 


INMRCOM 



G. FREE NOT-IN-USE ALLOCATIONS. 


DYNALLOC 


.S99VRBRI 



KINMCCOM 


FNOFILE 


MNMRCOM 


FLAGS 

FLAGS1 


MEFZB4D0 


S99RBPTR 

S99RBPND 

S99RB 

S99VERB 

S99TXTPP 

S99TUP 

S99TUPND 

S99TUKEY 

S99TUNUM 


MNMREGS 
% -1 


XNMCCOM 


H. ISSUE MESSAGE INMR900 INDICATING A 
SEPARATOR LINE 

/'-*^|- 

\i- 1 / INMCMSGI 


l\XNMCCOM 

i'i -1 

MSG# 

MSGFLAGS 

PLAINMSG 


INMRCOM 


Terminate the external 
writer interface using the 
ZEFSSREQ interface, invoke 
XNMRZ to call the 
installation termination 
exit XNMRZ02, issue CLOSE 
for the log data set. 


KIEFSSSO 
i^l-1 

SSSOFLGI 

SSSOSPGM 

SSSOFLG2 

SSSOCTRL 
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INMRM - RECEIVE Command Main Module 


STEP 14A 


A. ACQUIRE KEY 0 FOR A SUBSYSTEM REQUEST. 


\i-./ 


MODESET 


Imode=sup> key=zero 


B. REQUEST THAT THE EXTERNAL WRITER BE 
CLOSED._^ 

\i-1/| SSREQ 


C. RESET TO PROBLEM MODE. 

/' - *\|- 

\|-./ MODESET 


|KODE=PROB, KEY-NZERO 


IEFSSOBH 


ISSOB SSOBRETN 


ZNMREGS 


D. ISSUE MESSAGE INMR137 IF THE SUBSYSTEM 
REQUEST FAILED. 


\XNMCCOM 

/«- 

MSGS 

MSGFLAGS 

PLAINMSG 
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INMRM - RECEIVE Command Main Module 


STEP 14H 


ZEFZB4D0 

S99RBPTR S99RB 

IEFZB4D2 


DUNDDNAM 


ZHADCB 


DCBDDNAM 


IEFZB4D0 


S99VRBUN S99TULNG 


ZNMCCOM 


DSf 


IEFZB4D0 


S99RBPTR S99RB 


INMCCOM 


CTLftDSN CTLDSNL 
CTLDSN 


ZEFZB4D2 


DUNDSNAM 


ZEFZB4D0 


| S99VRBUN S99TULNG t 

ZNMCCOM 


H. FREE THE LOG DATA SET. 

/«-*\|- 

\«-i/l DYNALLOC 


I. FREE DSNAMES DATASET 

/L_l\|- 

\i- 1 / DYNALLOC 


J. REMOVE THE ESTAE EXIT. 

\«-i/l ESTAE 


0, MF=(E,ESTALIST) 



FRC04 

FRC08 

FRC12 

FRC16 



KZEFZB4D0 

/% - 

S99RBPTR 
S99RBPND 
S99RB 
S99VERB 
S99TXTPP 
S99TUP 
S99TUPND 
S99TUKEY 
S99TUNUM 
S99TULNG 
S99TUPAR 


\INMREGS 


R1 


\ZNMCC0M 


DSft 


\ZEFZB4D0 


S99RBPTR 

S99RBPND 

S99RB 

S99VERB 

S99TXTPP 

S99TUP 

S99TUPND 

S99TUKEY 

S99TUNUM 

S99TULNG 

S99TUPAR 


\INMREGS 


|R1 


K. RETURN TO THE CALLER. 




KINMREGS 

i / \ - 1 

R15 
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XNMRMSG - MODULE DESCRIPTION 

DESCRIPTIVE NAME: RECEIVE Command Message Module 
FUNCTION: 

Contains all messages used for the RECEIVE 
command. 

ENTRY POINT: 

PURPOSE: None 
LINKAGE: None 
CALLERS: None 
INPUT: None 
OUTPUT: None 

EXTERNAL REFERENCES: 

ROUTINES: None 
CONTROL BLOCKS: IKJTSMSG 
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XNMRMSG - DIAGNOSTIC AIDS 

ENTRY POINT NAME: None 
MESSAGES: None 
ABEND CODES: None 
WAIT STATE CODES: None 
RETURN CODES: None 

REGISTER CONTENTS ON ENTRY: Irrelevant 
REGISTER CONTENTS ON EXIT: Irrelevant 
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INMRNTFY - MODULE DESCRIPTION 


DESCRIPTIVE NAME: Send User Notification Routine 
FUNCTION: 

INMRNTFY sends notifications back to the 
originator of a transmission. 

ENTRY POINT: INMRNTFY 

PURPOSE: See FUNCTION 

LINKAGE: PLS CALL 

CALLERS: INMRM 

INPUT: 

All input is provided via the INMCCOM common 
parameter structure. The following fields are used: 

NOTNODE (node to notify) 

NOTUID (userid to notify) 

NOTOSN (name of received dataset) 

USERID (callers userid) 

RC (status of RECEIVE operation) 

OUTPUT: 

Message sent to originating user acknowledging 
the transmission. 

EXIT NORMAL: BR 14 return to caller 

EXTERNAL REFERENCES: 

ROUTINES: 

The following are invoked via PLS CALL: 

INMCMSGI - Message issuing routine 

DATA AREAS: 

INMRCOM - RECEIVE command communications area 
INMCCOM - Common parameter structure 
INMRCINF - Received file description table 
INMXPRMD - Installation options block 
INMTESTU - Transmission text unit keys 

CONTROL BLOCKS: 

CVT, DCB, SMCA, 

IEFZB4D0, IEFZB4D2 
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INMRNTFY - MODULE OPERATION 


Allocate a SYSOUT file specifying the destination 
and external writer name to be used for the 
notification. OPEN the file* write the message 
header record and the acknowledgement record 
and CLOSE the file. Deallocate the 
file so it can be transmitted by JES. 
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INMRNTFY - DIAGNOSTIC AIDS 


ENTRY POINT NAME: inmrntfy 


MESSAGES: 

INMR140I RECEIPT NOTIFICATION UNSUCCESSFUL 
INMR141I OPEN FAILED FOR JES OUTPUT FILE 
INMR142I NODE NAME nodename NOT KNOWN TO JES 
INMR143I ERROR ALLOCATING JES OUTPUT FILE 
INMR144I SENDER NOTIFIED OF RECEIPT 
INMR146I ERROR ON NOTIFY USERID 


ABEND CODES: None 


WAIT STATE CODES: None 


RETURN CODES: 

EXIT NORMAL: 

Return code is set in register 15* 

0 - Everything is normal. 

4 - No acknowledgment> allocate failed. 
8 - No acknowledgment> OPEN failed. 


REGISTER CONTENTS ON ENTRY: 

Register 8 - Address of XWtCCOM 
Register 13 - Save area address 
Register 14 - Return address 
Register 15 - Entry point address 
Other - Unpredictable 


REGISTER CONTENTS ON EXIT: 

EXIT NORMAL: 

Register 15 - Return code 
Other - Unchanged 
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XNMRNTFY - Send User Notification Routine 


STEP 02D 
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XNMRNTFY - Send User Notification Routine 


STEP 03 


INMXPRMD r - T > 



INMTEXTU 


INMTNODE INMTUID 
INMFNQDE INMFUID 
INMFTIME 

INMXPRMD 

PARM8N0D PARMNPTR 
NODENAME 

XEFZB4D0 

S99TUP S99TULNG 

INMRCOM 

USERID 
FUID 
FNODE 
RDATE6 


USERIDL 
FUIDL 
FNODEL 



MEFZB4D0 

/i- 

S99TUP 

S99TUKEY 

S99TUNUM 

S99TULNG 

S99TUPAR 
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XNMRNTFY - Send User Notification Routine 


STEP 04 


XNMRCOM 


FNOTQUAL FDEL 
INFPTR1 INFCOUNT 


XNNRCXNF 


INFCHAIN 


XNMRCOM 


NOTQUAL 

NOTQUALL 

FDATEL 

FDATEG 


XNMRCXNF 


R02DSNP 


XNMTEXTU 


INMFTIME INMFACK 
INMERRCD INMDSNAM 
INMTERM 


S99TUP S99TUNUM 
S99TULNG S99TULEN 
S99TUPRM 



Build the XNMR07 
acknowledgment record with 
the original data set name, 
the original transmission 
time, the originator's 
acknowledgment code, and the 
"DELETE” indication if 
necessary. 


Build the XNMR06 trailer 
record and write the entire 
notification transmission to 
the output spool file. 


A. WRITE THE NOTIFY CONTROL RECORD. 


PUT 


NOTDCB, (R15) 


\XEFZB4D0 

/.- 

S99TUP 

S99TUKEY 

S99TUNUM 

S99TULNG 

S99TUPAR 

S99TULEN 

S99TUPRM 


i\INMREGS 

l/|- 

R15 
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XNMRNTFY - Send User Notification Routine STEP 06D 
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INMRO - MODULE DESCRIPTION 


DESCRIPTIVE NAME: Read and Process Control Records Routine 
FUNCTION: 

INMRO reads and processes the control records 
at the beginning of each transmission. INMRO 
sets up the originator fields from the INMR01 
record, builds zero or more INF descriptors for 
incoming data files based on the INMR02 records, 
and completely processes any acknowledgements 
received. 

ENTRY POINT: INMRO 

PURPOSE: See FUNCTION 
LINKAGE: PLS CALL 
CALLERS: INMRM 
INPUT: 

All input is provided via the RECEIVE command 
communications area INMRCOM. Most of the fields 
in this area are used or set by INMRO. 

OUTPUT: Allocated output files for RECEIVE, OPEN LOG file 

EXIT NORMAL: BR 14 Return to caller 

EXTERNAL REFERENCES: 

ROUTINES: 

The following are invoked via PLS CALL: 

INMCMSGI - Message issuing routine 

INKCTIME - Convert GMT to local time routine 

INMRLOGO - Log open routine 

IhWRZ - RECEIVE exit - invocation routine 

The following are invoked via CALLTSSR: 

IKJEFF02 - Issue terminal messages 

DATA AREAS: 

INMRCOM - RECEIVE command communications area 
INMRCINF - RECEIVE file description table 
INKCCOM - Common parameter structure 
INMXPRMD - Installation options block 
INMRATXT - Output data set allocation text 
units 

CONTROL BLOCKS: CVT, DCB, IKJEFFMT, IKJCPPL, IEFZB4D2 

tables: 

LOGMSG - Log buffer format 
NOTLOG - Notify message format 
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INMRO - MODULE OPERATION 


INMRO performs the following functions: 

1) Initializes allocation text units for output 
data set allocation. 

2) Reads first record of an incoming file and 
checks for data transmission or message 
transmission. 

3) Obtain storage for the number of input file 
descriptors indicated on the INMR01 record. 

4) Copies information from the XNMR02 records to 
the proper INF block. 

5) Processes any acknowledgement records 
received* including logging and notifying the 
user. 

6) When the first INMR03 data header record is 
encountered* returns control to XNMRM to 
continue processing. 
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INMRO - DIAGNOSTIC AIDS 


ENTRY POINT NAME: INMRO 


MESSAGES: 

INMR10II RESTORE NOT POSSIBLE• UNSUPPORTED 

UTILITY xxxx REQUESTED BY INPUT FILE. 
INMR102I RESTORE NOT POSSIBLE. INPUT DATA IS NOT 
COMPLETE. 

INMR130I RECEIVE COMMAND TERMINATED. INPUT 
DATASET UNUSABLE. 

INMR135I PERMANENT I/O ERROR READING INPUT FILE. 
INMR136I system synad message. 

INMR139I INPUT FILE IS EMPTY. 

INMR901I DATASET 'dsn' FROM userid ON node 0 . 
INMR921E RECEIVED FILE APPEARS NOT TO BE A NETMAIL 
FILE. THE FIRST RECORD IS: 

INMR922I first input record. 

INMR931I ACKNOWLEDGMENT FROM userid ON nodename. 
INMR932I DATASET dsname SENT date time STORED. 


ABEND CODES: None 


WAIT STATE CODES: None 


RETURN CODES: None 


REGISTER CONTENTS ON ENTRY: 

Register 8 - Address of INMCCOM 

Register 13 - Save area address 
Register 14 - Return address 
Register IB - Entry point address 
Other - unpredictable 


REGISTER CONTENTS ON EXIT: 

EXIT NORMAL: 

Register IS - Always zero 
Other - Unchanged 
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XNMRO - Read and Process Control Records Routine 


STEP 01 


XNMCCOM 

Imodioptr 



INMRM 

o 

INMRO 


J\ 

l/ 


INMRO reads and processes -the control 
records at the beginning of each 
transmission. INMRO sets up the originator 
fields from the INMR01 record> builds zero 
or more INF descriptors for incoming data 
files based on the INMR02 records, and 
completely processes any acknowledgements 
received. 


01 


Initialize for processing* 


■KINMCCOM 


MODIDPTR 


LY28-U05-2 (c) Copyright IBM Corp. 1981, 1986 


Section 2: Module Information 


2-123 




'Contains Restricted Materials of IBM” 
Licensed Materials - Property of IBM 


INMRO - Read and Process Control Records Routine 


STEP 01A 


INMRATXT 


TUDSN 

TURTORG 

TURTDDN 

TUDISP 

TUSTATS 

TUSPC1 

TUSPC2 

TUBCT 


INITIALIZE THE SVC 99 TEXT UNITS THAT 
ARE TO BE USED FOR ALLOCATING THE OUTPUT 
DATA SET, SET EODAD AND SYNAD ADDRESSES 
FOR THE INPUT FILE, AND BUILD DEFAULTS 
FOR THE ORIGINATOR INFORMATION THAT 
NORMALLY COMES FROM THE INMROl RECORD. 


KINMRATXT 


XNMRCOM 




MNMRCOM 


FPROFS 

FUID 
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XNMRO - Read and Process Control Records Routine STEP 02 


XNMRCOM 


FPROFS SEGFIRST 
SEGCNTL 


XNMRCOM 


FINVALID 


XNMRCOM 

IFPROFSFINVALID 


XNMRCOM 


FINVALIO 

FUIO 

FNODE 

FDATEG 

R01TUPL 



XEFZB4D0 


S99TUNUM 

: 

XNMTEXTU 

: 

INMTUID 

INMFNODE 


INMFUID 

INMFTIME 


INMNUMF 

INMLRECL 



XEFZB4D0 


S99TUKEY S99TULNG 
S99TUPAR 


> 


■> 


-> 


J\ 

1 / 



Read the first control 
record. If it is an 'INMR01' 
record* include XNMR0C1 to 
process it and then enter a 
SELECT loop to process the 
remaining control records. 
If it is a PROFS control 
record* then process the 
record and exit. 


A. READ THE FIRST CONTROL RECORD. 

/I 

\l 


GETCTLs 11 


03 


Process the XNMRO 1 control 
record. Move all the 
information from the XNMRO 1 
record to XNMRCOM. Invoke 
INMCTXME to convert the 
original transmission time 
value (GMT) to local time. 


A. CONVERT THE TRANSMISSION TIKE TO LOCAL 
TIME. 

/I-1\.- 

\|-,/[ INMCTIME 


FDATEG* FDATE 



FUIDL 

FNODE 

FNODEL 

UTOUT 

FDATE 

RECCT 

XPRM1PTR 

XPRMAPTR 

ACKERRPT 

INRLEN 

INRFILL 

R01TUPL 

L1MEFZB4D0 

-jr 

S99TUPND 

JvTMMDOAM 

— 

_ / 

biiimvvn 


FINVALID 


J\XNMRC0M 



FINVALID 

NOTQUALL 

FUID 

FUIDL 

FNODE 

FNODEL 

CTLLRECL 

FDATEL 

FDATEG 

INFCOUNT 

Ll\IEFZB4D0 


S99TUP 1 
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INMRO - Read and Process Control Records Routine 


STEP 04 


INMTEXTU 


INMFVERS INMFACK 
INMUSERP 


INMRCOM 


NOTQUAL NOTQUALL 
R01TUPL 


IEFZB4D0 


S99TUNUM S99TULNG 
S99TUPAR S99TULENI 


MNMRCOM 


FNOTIFY 

FNOTQUAL 

FINVALID 

NOTQUAL 

NOTQUALL 

XPRM1PTR 


MEFZB4D0 

|s99TUPNo| 


XNMRCINF 


INMRCOM 


INFCOUNT 


(041 Obtain storage for the input 
1 — 1 file and chain all the input 
file descriptors that are to 
be used for the RECEIVE 
operation. 

A. OBTAIN STORAGE FOR THE INF BLOCKS. 


GETMAIN 


MNMRE6S 


R» LV=(0) 


INMRCOM 


INFPTR1 


XNMRCINF 


XNMRE6S 


GETCTLj 11 


MNMRCOM 


INFPTR 

INFPTR1 

STGPTR 


MNMRCINF 


INFID 

INFVER 

INFCHAIN 


INMRCOM 


INFPTR 

INFCOUNTr 

STGPTR 



XNMRCINF 


,INFCHAIN 

INMRCOM 

FINVALID FEOF 
SEGCNTL 


Check the file number at the 
beginning of the record. If 
this is a new file number# 
initialize a new file 
descriptor and use the 
information from this 
record. If this is an 
additional record for the 
same file# add information 
to the current input file 
descriptor. 
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INMRO - Read and Process Control Records Routine 


STEP 05A 


INMRCOM 
FINVALID INFPTR 
XNMRCINF 
R02TUPL 
XEFZB4D0 



XNMRCXNF 

INFCHAIN 

XEFZB4D0 

S99TUKEY S99TULNG 
S99TUPAR 




\XNMRCOM 

/ 

\XNMRCXNF 



FLAGSI 

FVBS 

FIEBCOPY 

FCIPHER 

OUTRECFM 

OUTBLKSI 

joUTLRECL 

SIZE 

ROSNAMEL 

j RDSNAME 

HIQUALL 

R02DSNP 

R02TUPL 

XPRM2PTR 

XPRM3PTR 


\IEFZB4D0 



MNMCCOM 


/«- 

MSGS 

MSGFLAGS 

STRNGMSG 

FRC12 

RC 

MSGSTRL 

MSGSTRP 
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IEFZB4D0 


S99TUKEY S99TUNUM 
S99TUPAR S99TULEN 
S99TUPRM 


S99TULNG 


IEFZB4D0 


B. CALL THE ACKNOWLEDGEMENT EXIT ROUTINE 
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XNMRO - Read and Process Control Records Routine 


STEP 06C 


XNMRCXNF 


XNMRCOM 


INFCCUNT 


C. IF THIS IS MOT A OATA HEADER, READ NEXT 
C ONTRO L RECORD. 

\i-1/| GETCTL: 11 I 


Process the PROFS header 
record. Move the origin 
userid, node, and timestamp 
fields from the PROFS header 
record into the XNMRCOM work 
area* 


i| Obtain storage for the input 
J file and chain all the input 
file descriptors that are to 
be used for the RECEIVE 
operation. 

OBTAIN ST0RA6E FOR THE INF BLOCKS. 



\XNMRCOM 

/\ - 1 

NOTQUALL 

INFCOUNT 


KXNMREGS 

l/[-1 

RO 



LY28-110S-2 (e) Copyright IBM Corp. 1981, 1986 


Section 2: Module Information 2-129 






"Contains Restricted Materials of IBM" 
Licensed Materials - Property of IBM 


INMRO - Read and Process Control Records Routine 


STEP 08B 


INMRCOM 


FPROFS FRECVACK 
FRDATA 


INMRCINF 


FRESTLOG OUTLRECL 
R02TUPL 


INMREGS 


INMRCOM 


INFPTR INFPTR1 
INFCOUNT STGPTR 


INMRCINF 


INFCHAIN 


IHADCB 


DCBRECFM DCBBLKSI 
IDCBLRECL 



RECORD S ARE RECEIVED. 

\|-. / INMCMSGI 


MNMRCOM 


FRDATA 

FINVALID 

FUID 

FUIDL 

FNODE 

FNODEL 

CTLLRECL 

FOATEL 

FDATE 

INFPTR 

INFPTR1 

STGPTR 


MNMRCINF 


INFID 

INFVER 

INFCHAIN 

FLAGSI 

FVBS 

FSHORTV 

FRESTLOG 

FPREVIEH 

OUTRECFM 

OUTBLKSI 

OUTLRECL 

SIZE 

RDSNAMEL 

RDSNAME 

HIQUALL 

R02DSNP 

R02TUPL 

XPRM2PTR 

XPRM3PTR 


i 


MEFZB4D0 


S99TUPND 


MNNCCOM 


MSG# 

MSGFLAGS 

PLAINMSG 

FRC04 


INMRCOM 


FRECVACK FEOF 


INMRCOM 


MNMRCOM 



Build the INF incoming file 
descriptor block for use 
during the remainder of 
RECEIVE processing. If the. 
incoming file is not 
recognized as an Interactive 
Data Transmission Facility 
filer assign the name 
X.RECEIVE.INVALID.FILE to 
the incoming file. 
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XNMRO - Read and Process Control Records Routine 


STEP 09A 


A. OBTAIN SPACE FOR THE INF BLOCKS* 

\,-,/ GETMAIN 

R, LV=(0) 


XNMRCINF 


R02TUPL 


XNMRE6S 


R1 


XNMRCOM 


INDDN 

INDDNL 

INFPTR 

STGPTR 


XEFZB4D2 


jOALDDNAM 
XNMRCOM 
Ifnolog findsn 


-> B* IF LOGGING IS ALLOWED, AND NOT INDSN> 
OPEN THE LOG* 

/I-1\.- 

\i-1/| INMRLOGO 


KINMRCOM 


FRDATA 

INFPTR 

INFPTR1 

INFCOUNT 

STGPTR 


INFID 

INFVER 

INFCHAIN 

FLAGSI 

OUTRECFM 

OUTBLKSI 

OUTLRECL 

SIZE 

RDSNAMEL 

RDSNAME 

R02TUPL 

XPRM2PTR 

XPRM3PTR 


XNMRCOM 


FRECVACK 

o 

H 

_l 

i 

c 

FUID 

FNODE | 


XNMCCOM 


FQIIIT 


XKJEFFMT 


MSGCSECT 


XNMCCOM 


CPPLPTR 


XKJEFFMT 


MSGTABLE 


--> 11101 Send acknowledgement 
K 1 L “ l messages to the user and 
write acknowledgement 
records to the log* 

A* ISSUE MESSAGE INMR931 INDICATING THAT AN 
ACKNOWLEDGEMENT HAS BEEN RECEIVED* 


CALLTSSR 


EP-XKJEFF02, MF=(E,(1)) 


S99TUPND 


MSGTABLE 

LISTPTR 

MTCPPL 

MTHIGH 

MSGCSECT 

MTPUTLSW 

MTHEXSW 

MTPGMSW 

MSGID 

LI 

VAR1 

L2 

VAR2 
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XNMRQ - Read and Process Control Records Routine 


STEP 10B 


XKJEFFMT 


XNMRCOM 


XKJEFFMT 


MSGTABLE 


INMCCOM 


XNMRCOM 


.ADSNAMEL 


XNMRCOM 


|FNOLOG FLCGOPN 

XNMRCOM 


LOGPTR ADSNAME 



B. ISSUE MESSAGE INMR932 SPECIFYING THE 
DSNAME 


CALLTSSR 


EP=IKJEFF02, MF=(E>(1)) 


C. WRITE AN ACKNOWLEDGMENT LOG MESSAGE. 



MKJEFFMT 


MSGTABLE 

LISTPTR 

MTCPPL 

MTHIGH 

MSGCSECT 

MTPUTLSW 

MTHEXSH 

MTPGMSW 

MSGID 

LI 

VAR1 

L2 

VAR2 

L3 

VAR3 


\XNMREGS 


\XNMREGS 


RO R1 



[71 


\INMCCOM 

ImodioptrI 
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XNMRO - Read and Process Control Records Routine 


STEP 11 


ii > 111 Build input seqments into 

- 1 / — 1 the control records. 

GETCTL 

A. OBTAIN CONTROL RECORD STORAGE. 


KXNMREGS 

l/|-1 

RO 


GETMAIN 


R, LV=(0) 


INMREGS 


KINMRCOM 




XNMRCOM 


SEGFIRST SEGCNTL 


XNMRCOM 


XNMRCOM 


I i»i\r i n Annucn 

XNMRCOM 


C. MOVE IN THE SEGMENT. 


GETSEG: 12 


D. RETURN TO THE CALLER. 



On the first call prepare 
the first segment header, 
but read no data. On 
subsequent calls always read 
the data for a segment and 
setup the header for the 
next segment. 




INRPTR 

INRLEN 
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XNMRO - Read and Process Control Records Routine 


STEP 12C 


XNMRCOM 


XNMRCOM 


IINRPTR INRLEN 

XNMRCOM 


XNMRCOM 


XNMRCOM 


INRPTR INRLEN 


INPDCBP INRFILL 


-> C. IF INPUT IS BEING USED, READ THE NEXT 
(OR FIRST) RECORD. 


GETREC: 13 



On the first call* check the 
record to see if it is a 
carriage control or tag 
record. If so, ignore it and 
other such records until the 
first real record is read. 
Return the address of the 
record to the caller with 
the 4-byte header removed. 



KXNMRCON 

i/r- 1 

SEGL 

INRPTR 

INRLEN 



SEGF 

SEGFIRST 

SEGLAST 

INRPTR 

INRLEN 


XNMREGS 



XNMRE6S 


C. SKIP P AST A NY VM TAG RECORDS. 

\i-1 / GET 
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XNMRO - Read and Process Control Records Routine 


STEP 13D 



INPEOF 


14 


INPEOF gets control when an 
end-of-file condition is 
raised on the input file. It 
sets the FEOF flag and 
returns to the instruction 
following the GET. 


J \XNMRCOM 

i / i - 

FEOF 


A. RETURN TO THE READ OPERATION. 
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ZNMRO - Read and Process Control Records Routine 


STEP 15 
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INMRPDS - MODULE DESCRIPTION 


DESCRIPTIVE NAME: PDS Reload Routine 
FUNCTION: 

INMRPDS allocates temporary files, builds control 
records> and invokes IEBCOPY to reload 
partitioned data sets. 

ENTRY POINT: INMRPDS 

PURPOSE: See FUNCTION 
LINKAGE: PLS CALL 
CALLERS: INMRM 
INPUT: 

All input is provided via the RECEIVE command 
communications area INMRCOM. The following 
fields are used: 

REST2DDN (for output ddname.) 

ULPDSDDN (for input ddname) 

MEKBER1> MEMBERS> RC 

Input file containing IEBCOPY unloaded data set 
OUTPUT: Partitioned data set reloaded by IEBCOPY 
EXIT NORMAL: BR 14 Return to caller 
EXTERNAL REFERENCES: 

ROUTINES: 

The following are invoked via PLS CALL: 

INMCMSGI - Message issuing routine 

DATA AREAS: 

INMRCOM - RECEIVE command communications 
area 

INMCCOM - Common parameter structure 
INMXPRMD - Installstoin options block 

CONTROL BLOCKS: 

DCB> 

IEFZB4D0, IEFZB4D2 

TABLES: 

CQPYSTMT - IEBCOPY COPY statement 
SELSTMT - IEBCOPY SELECT statement 
COPYDDNM - IEBCOPY substitute ddname list 
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ZNMRPDS - MODULE OPERATION 


Allocate a SYSIN file for IEBCOPY and write 
control cards to it. The control cards will 
control partitioned data set reloading. A COPY 
control card is always created. A SELECT card(s) 
will be generated if the member is to be renamed. 
A temporary file is allocated for SYSUT4 space. 
The SYSPRINT file is allocated either to the 
users terminal or to a sysout class > as 
specified in INMXPRMD or via the RECEIVE prompt. 
The calling routine provides the input and 
output files for the reload process. INMRPDS 
invokes IEBCOPY to perform the reload and 
release temporary files. 
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INMRPDS - DIAGNOSTIC AIDS 


ENTRY POINT NAME: INMRPDS 
MESSAGES: 

XNMR070X RECEIVE COMMAND TERMINATED* FAILURE IN 
PARTITIONED DATASET RELOAD. 

INMR071I ALLOCATION FAILED FOR IEBCOPY ... FILE. 
INMR072I RETURN CODE nn FROM IEBCOPY UTILITY. 

ABEND CODES: None 

WAIT STATE CODES: None 

RETURN CODES: 

EXIT NORMAL: 

Return code in register 15 is always zero. 


REGISTER CONTENTS ON ENTRY: 

Register 8 - Address of INMCCOM 

Register 13 - Save area address 
Register 14 - Return address 
Register 15 - Entry point address 
Other - Unpredictable 


REGISTER CONTENTS ON EXIT: 

EXIT NORMAL: 

Register 15 - Always zero 
Other - Unchanged 
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XNMRPDS - PDS Reload Routine 


STEP 01 


INnRM 

c> 

XNMRPDS 


INMRPDS allocates temporary files, builds 
control records> and invokes IEBCOPY to 
> reload partitioned data sets. 


XNMCCOM 


MODIDPTR 


J \ 01 Initialize dynamic storage 
j/ 1 — 1 areas and then check to 
| insure that the caller is 
APF authorized. 


KINMCCOM 

1 I MODIDPTR I 


XNMRE6S 


XEFZB4D0 


|S99RBPTR S99RB 

XEFZB4D2 


DALTRK 

DALPRIMEr 

DALUNIT 

DALRTDDN1 


XEFZB4D0 


S99TULN6 


XNMXPRMD 


PARMVIOL PARMVIO 


XNMREGS 



A. CHECK THE CALLER'S AUTHORIZATION. 

/I-1\.- 

\|-j/ TESTAUTH 

FCTN=1, KEY=YES, STATE=YES, 
RBLEVEL=1 


B. ISSUE MESSAGE INMR057 IF THE CALLER IS 
NOT AUTHORIZED. 

/I ^\ f . 1 1 1 

\«-i/l INMCMSGI 


Use SVC 99 to allocate 
temporary files for use in 
the partitioned data set 
reload process. The file 
contains IEBCOPY control 
statements , a message file 
for the messages, and a 
SYSUT4 file. (The message 
file is allocated to the 
user's terminal or to a 
SYSOUT class.) 


A. ALLOCATE THE CONTROL CARD FILE. 


DYNALLOC 


B. ISSUE MESSAGE IMR070 IF THE ALLOCATION 
FAILED. 

/L_J\|- 

\i-«/| INMCMSGI 





MNMCCOM 


MSG# 

MSGFLAGS 
PLAINMSG 
FRC12 


\XEFZB4D0 


S99RBPTR 

S99RBPND 

S99RB 

S99TXTPP 

S99TUP 

S99TUPND 

S99TUKEY 

S99TUNUM 

S99TULNG 

S99TUPAR 


MNMREGS 


MNMCCOM 


MSG# 

MSGFLAGS 

PLAINMSG 

MSGRC 


XEFZB4D0 


C. ISSUE MESSAGE INMR071 IF SYSIN 
ALLOCATION FAILED. 

/I-1\.- 

\i-./I INMCMSGI 


JMNMCCOM 

i/|- 

MSG# 

MSGFLAGS 

STRNGMSG 

ALLOCMSG 

FRC12 

RC 

MSG99PTR 

MSGSTRL 

MSGSTRP 


2-140 Interactive Data Transmission Facility Logic LY28-1105-2 (c) Copyright IBM Corp. 1981, 1986. 



















'Contains Restricted Materials of IBM” 
Licensed Materials - Property of IBM 


ZNMRPDS - PDS Reload Routine 


STEP 02D 
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XNNRPDS - PDS Reload Routine 


STEP 02H 
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XNMRPDS - PDS Reload Routine 


STEP 03C 


XNMRCOM 


FMEM 


MEMBERL 


XEFZB4D0 


S99TULNG 


XNMRCXNF 


MEMLPTR 


XNMRCOM 


MEMBER 


XEFZB4D0 


XNMREGS 


R1 




1 coon in ad _ 



04 

|477l\irMI\ |- 



-J\ 


V 


C. WRITE THE SELECT STATEMENT 
/ 

\ 


PUT 


SYSIN, SELSTMT 


D. CLOSE THE CONTROL CARO DATA SET. 

/I-l\,- 

CLOSE 


SYSIN, MF=(E,OPENLIST) 


05 


When the control file is 
ready, complete the 
parameter list to be passed 
and use ATTACH SVC to invoke 
the XEBCOPY utility. 


Xssue an ATTACH to start the 
XEBCOPY reload of the file, 
issue WAXT to await its 
completion, issue DETACH to 
terminate the TCB, and check 
the return code from 
XEBCOPY. 


A. ATTACH IEBCCPY 

B. ECB=COPYECB /# ATTACH XEBCOPY 

/'-K,- 


ATTACH 


EPsIEBCOPY, MF=(E,(1))> 
SF=<E>< 15)), SZERO=NO, 


WAIT FOR IEBCOPY. 

/'-f 

\i-l/l 


WAIT 


ECB=COPYECB 


D. DETACH THE IEBCOPY TCB. 

/'-1\|- 

\|- 1 / 


DETACH 


(Rl) 


-KXNMREGS 

■V 

Rl R15 


-KXNMREGS 

V 


Rl 
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INMRPDS - PDS Reload Routine 


STEP 05E 


XEFZB4D0 


S99RBPTR S99RB 


XEFZB4D2 


DUNDDNAM | 

■ 

XEFZB4D0 

■ 

S99VRBUN S99TULNG. 

mm 


J\ 

1 / 
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XNMRQ - MODULE DESCRIPTION 


DESCRIPTIVE NAME: RECEIVE Nickname Resolution Routine 
FUNCTION: 

INMRQ attempts to find a nickname 

entry for the sender of each received file. 

It scans one or more NAMES files looking for 
a nickname entry whose userid and nodename match 
those of the sender* If INMRQ finds the proper 
nickname entry, it uses it to define the log 
options and to provide a name for the sender. 

ENTRY POINT: INMRQ 
PURPOSE: See FUNCTION 
LINKAGE: PLS CALL 
CALLERS: INMRLOG 
INPUT: 

All input is provided via the common parameter 
structure INMCCOM. The following fields are used: 

FUID, FUIDL, FNODE, and FNODEL are the node and 
userid. 

OUTPUT: NICKNAME, NAME, and LOGNAME fields may be set. 

EXIT NORMAL: BR 14 Return to caller 

EXTERNAL REFERENCES: 

ROUTINES: 

The following are invoked via PLS CALL: 

INMCMSGI - Message issuing routine 

INMCA - Control data set allocate routine 

DATA AREAS: 

INMCCOM - Common parameter structure 
INMRCOM - RECEIVE command communications 
area 

CONTROL BLOCKS: DCB 
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XNMRQ - MODULE OPERATION 


First* allocate and open the data set 
"prefix.NAMES'text”. If the allocation or open 
fails* and the installation has specified a 
system names data set* attempt to use it* If 
using the system names data set fails* no NAMES 
data set is used and all nicknames are invalid. 

If a "prefix.NAMES.text" data set or system names 
data set is used* read the first section of the 
data set for values logselector* logname* and 
names of alternate NAMES data sets. After this* 
read the remainder of the data set looking for 
the incoming user. If the incoming user is not 
found in the first data set* continue the search 
by allocating the next NAMES data set I via call 
to INMCA) and reading that data set. 
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ZNMRQ - DIAGNOSTIC AIDS 


ENTRY POINT NAME: XMMRQ 


MESSAGES: 

INMC001I THE NAMES DATASET dsname IS UNUSABLE* 
INMC003I OPEN FAILED FOR THE DATASET. 

INMC010I ONLY 10 ALTCTL TAGS ARE ALLOWED. 

SUBSEQUENT ONES ARE BEING IGNORED. 
INMC011I THE VALUE dsname IS TOO LONG FOR AN 
ALTCTL* IT WILL BE IGNORED* 


ABEND CODES: None 


WAIT STATE CODES: None 


RETURN CODES: 

EXIT NORMAL: 

Return code set in the variable RC of 
the RECEIVE command communications 
area INMRCOM* 

0 - Everything is normal* 


REGISTER CONTENTS ON ENTRY: 

Register 8 - Address of INMCCOM 

Register 13 - Save area address 
Register 14 - Return address 
Register 15 - Entry point address 
Other - Unpredictable 


REGISTER CONTENTS ON EXIT: 

EXIT NORMAL: 

Register 15 - Always zero 
Other - Unchanged 
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INMRQ - RECEIVE Nickname Resolution Routine 


STEP 01 


INMRLOG 

e> 


XNMRQ 


INMRQ attempts to find a nickname entry 
for the sender of each received file. It 
scans one or more NAMES files looking for 
a nickname entry whose userid and nodename 
match those of the sender. If INMRQ finds 
the proper nickname entry* it uses it to 
define the log options and to provide a 
name for the sender. 


XHAPSA 

PSATOLD 

XKJTCB 

TCBJSCB 

XEZJSCB 

JSCBPSCB 

XKJPSCB 


PSCBUPT 


XNMXPRMD 


Initialize dynamic areas and 
invoke XNMCA to initialize 
the first NAMES data set. 
Build the 

installation-specified user 
NAMES data set and attempt 
to initialize it. Xf the 
user NAMES data set is not 
available* XNMCA attempts to 
use the system NAMES data 
set as a substitute. 


A. ALLOCATE AND OPEN THE NAMES DATA SET 


PARMLN 

PARMLNL 

PARMLS 

PARMLSL 

PARMUC 

PARMUCL 


XKJUPT 


jUPTPREFX UPTPREFL 

XNMCCOM 


CTLPERR 


XNMXPRMD 


.PARMSC PARMSCL 


XNMCCOM 


CTLPERR 



S. ALLOCATE THE SYSTEM DATA SET. 

/'—N- 

\l-1/ INMCA 



\XNMRC0M 

/.- 1 

LOSSELL 

LOGSEL 

L06DEFL 

LOGDEF 

LOGNAMEL 

LOGNAME 

\XNMCC0M 

/.-1 

DS9 

CTL40SN 



\XNMCC0M 

Inndptr 


XNMCCOM 


(CTLPERR 


Scan the control section of 
the first NAMES data set. 

Use the GETTA6 subroutine to 
retrieve tags and values 
until the first :NXCK is 
found. Ignore :PROLOG and 
:EPXL0G tags because they 
are not used by RECEIVE. Xf* 
at the end of the scan* the 
NAMES data set list is not 
full* append the system 
NAMES data set. 


A. GET THE NEXT TAG FROM THE DATA SET. 

/I ,l\. 

Si- 1 / GETTAGs 06 
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INMRQ - RECEIVE Nickname Resolution Routine 


STEP 02B 
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XNMRQ - RECEIVE Nickname Resolution Routine 


STEP 03 


XNMCCOM 

FQUIT CTLSDSN 
CTLPERR 


XNMCCOM 


CTLNND 


XNMCCOM 


After processing the control 
section of the first NAMES 
data set, scan the NAMES 
section of the first and all 
succeeding NAMES data sets 
until the required nickname 
is found. If the data sets 
have not been allocated by 
the processing for a 
previously received file, 
invoke XNMCA to allocate and 
open the file. Xf the file 
is already allocated, 
perform the open. 


A. IF THE DATA SET IS NOT ALLOCATED, THEN 
ALLOCATE AND OPEN IT. 


CTLALLOCI 


XNMCNND 


NNDOPEN NNDDCB 


XHADCB 



KXNMCCOM 

\/\ - 1 

NNDPTR 

DSff 



B. ISSUE MESSAGE INMC003 IF THE OPEN 
FAILED. 

/I-l\i- 

Si-1/| INMCMSGI 



MSGS 

MSGFLAGS 

STRNGMSG 

MSGSTRL 

MSGSTRP 

CTLPERR 


SXNMCNND 


Process the nicknames 
section of the NAMES file. 
Use the GETNXCK subroutine 
to skip to the next 
nickname. Invoke GETTAG to 
get succeeding tags and 
values from the nickname 
entry until either the 
nickname is complete or 
until some value (node or 
userid) that does not match 
those required is found. 


A. GET THE FIRST NICKNAME ENTRY. 

- 

Si- 1 / GETNICK: 07 
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XNMRQ - RECEIVE Nickname Resolution Routine 


STEP 04B 


B. GET THE FIRST TAG FOR THIS NICKNAME. 


GETTAG: 06 


XNMCNND 


XNMCCOM 


C. INITIALIZE THE NEXT ENTRY. 


GETNICK: 07 


INMRCOM 


-> D. IF THE LENGTH OR NAME DOES NOT MATCH> 
T HEN G ET THE NEXT NICKNAME. 

\i- i/\ GETNICK: 07 I 


INMRCOM 


IFNODE FNODEL 


-> E. IF LENGTH MISMATCH OR NAME EXISTS, GET 
THE NEXT NICKNAME. 


GETNICK: 07 


F. READ THE NEXT TAG. 


GETTAG: 06 


XNMCNND 

NNDEOF NNDOPEN 
NNDOCB 


ZNMCCON 


-> 05 If a matching nickname entry 
11 — 1 was being processed when the 
end of file occured, set the 
NNd variable to zero 
indicating that the nickname 
was found. Then close the 
NAMES file. 

A. CLOSE THE NAMES DATA SET. 


MNMREGS 




((R2)), MF=(E> OPENLIST) 


B. IF THE LAST-USED NAMES DATA SET IS STILL 
OPEN, CLOSE IT. 
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XNMRQ - RECEIVE Nickname Resolution Routine 


STEP 05C 


INMRCOM 


FCNOLOG 


C. RETURN TO THE CALLER. 




J \ZNMCNND 


Inndopen 


KINMRCOM 

i/f- 

FNOLOG 

NICKNAME 

NICKNAML 

NAME 

NAMEL 

LOGNAMEL 

LOGNAME 

KZNMCCOM 

^IhodidptrI 


I- 

06 > 
—1/ 


GETTAGl 


GETTAG locates, in the NAMES 
file, the next valid tag and 
its associated value. The 
tag name is returned in the 
variable TAG, padded to 
eight characters. The value 
field is returned via 
pointers ELEPTR (to the 
uppercase version) and 
ELEPTR1 (to the lower case 
copy). The length is 
returned in ELELEN. 
Variables xnrecptr and 
XNRECL are updated to 
reflect the progress of the 
scan. 


A. XF THERE XS NO INPUT RECORD, READ THE 
FIRST INPUT RECORD. 

/\ -l\i-- 

\i-,/ GETREC: 09 


\XNMREGS 
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INMRR - MODULE DESCRIPTION 


DESCRIPTIVE NAME: ABEND cleanup routine 
FUNCTION: 

INMRR is invoked by the INMCR ESTAE exit 
to perform cleanup. It sends ABEND 
messages to the user and attempts to 
terminate important RECEIVE processes> 
particularly the external writer. 

ENTRY POINT: INMRR 

PURPOSE: See FUNCTION 

LINKAGE: BALR FROM INMCR 

CALLERS: INMCR 

INPUT: CMDABEND field in INMCCOM contains the ABEND code. 
OUTPUT: Message issued to the user giving the ABEND code. 
EXIT NORMAL: BR 14 Return to caller 
EXTERNAL REFERENCES: 

ROUTINES: None 
DATA AREAS: 

INMCCOM - Common parameter structure 
INMRCQM - RECEIVE command communications area 
INMRCINF - Received file description table 
IEFSSOB - Subsystem communications area 
IEFZB4D0 - Allocation SVC control blocks 
IEFZB4D2 - Allocation text unit key names 

CONTROL BLOCKS: DCB 
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XNMRR - MODULE OPERATION 


INMRR receives control after an ABEND > converts 
the abend code to printable format* and writes 
a message to the user. Then* INMRR attempts 
to clean up the external writer processing by 
closing and freeing the currently active file and 
by using IEFSSREQ to terminate the external 
writer. INMRR also closes and frees the 
output dataset. 
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INMRR - DIAGNOSTIC AIDS 


ENTRY POINT NAME: INMRR 
MESSAGES: 

INMR030I RECEIVE COMMAND TERMINATED. ABEND xxx 
INMR031I REGISTER 15 VALUE AT ABEND WAS xxxxxxxx 

ABEND CODES: None 

WAIT STATE CODES: None 

RETURN CODES: 

EXIT NORMAL: 

Register 15 is always zero. 


REGISTER CONTENTS ON ENTRY: 

Register 8 - Address of INMCCOM 

Register 13 - Save area address 
Register 14 - Return address 
Register 15 - Entry point ADDRESS 
Other - Unpredictable 


REGISTER CONTENTS ON EXIT: 

EXIT NORMAL: 

Register 15 - Always zero 
Other - Unpredictable 
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XNMRR - ABEND cleanup routine 


STEP 01 


INnCR 

o 

INMRR 


INMRR is invoked by the INMCR ESTAE exit 
to perform cleanup. It sends ABEND 
messages to the user and attempts to 
terminate important RECEIVE processes> 
particularly the external writer. 


IEFSS0BH 


IEFSSS0 


SSOBSQUT SSSO 


-> 01 If the external writer is 
J \ 1 — 1 active, terminate it. 

V 

A. OBTAIN KEY 0 STATE TO ISSUE A SUBSYSTEM 
REQUEST. 


MODESET 


I MODE-SUP, KEY-ZERO 


B. REQUEST THAT THE EXTERNAL WRITER BE 
CLOSED. 


SSREQ 


KIEFSSOBH 

\*\ - 

SSOBID 

SSOBLEN 

SSOBFUNC 

SSOBSSIB 

SSOBRETN 

SSOBINDV 

JMEFSSSO 

i/|- 

SSSO 

SSSOLEN 

SSS0FLG1 

SSS0FLG2 

SSSOCTRL 


C. RESET TO THE PROBLEM MODE STATE. 


IHADCB 


IDCBOFOPN 


INMRCOM 


XNMRCOM 



\i-1/ 


MODESET 


MODE-PROB, KEY-NZERO 


D. CLOSE OUTPUT DS 



\XNMREGS 
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XNMRR - ABEND cleanup routine 


STEP 02 


INMRCINF 


IFIEBCOPY 


IEFZB4D0 


S99RBPTR S99RB 


IEFZB4D2 


DUNDDNAM 


INMRCOM 


ULPDSDDN 


IEFZB4D0 


jS99VRBUN S99TULNG 
IEFZB4D0 
S99RBPTR S99RB 

IEFZB4D2 

DUNDDNAM 

INMRCOM 


lOUTDDN 


IEFZB4D0 


S99VRBUN S99TULNG r 


> 02 Free any output file or a 
\ 1 — 1 temporary file that was 
/ allocated. 

A. FREE THE IEBCOPY INPUT FILE. 


DYNALLGC 



j \IEFZB4D0 

/.- 

S99RBPTR 
S99RBPND 
S99RB 
S99VERB 
S99TXTPP 
S99TUP 
S99TUPND 
S99TUKEY 
S99TUNUM 
S99TULN6 
S99TUPAR 


S99RBPTR 
S99RBPND 
S99RB 
S99VERB 
S99TXTPP 
S99TUP 
S99TUPND 
S99TUKEY 
S99TUNUM 
S99TULNG 
S99TUPAR 

MNMREGS 

'E I 


C. RETURN TO THE CALLER. 


M 


KINMCCOM 

|/|- 1 

MODIDPTR 
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INMRSCMD - MODULE DESCRIPTION 


DESCRIPTIVE NAME: RECEIVE Command Scan Subroutine 
FUNCTION: 

INMRSCMD invokes IKJPARS to scan the RECEIVE 
command parameters. After syntax checking, 

INMRSCMD moves the values into local variables. 

ENTRY POINT: INMRSCMD 
PURPOSE: See FUNCTION 
LINKAGE: PLS CALL 
CALLERS: INMRM 
INPUT: 

All input is provided via the INMCCOM parameter 
structure. The following fields are used: 

CPPLPTR (for IKJPARS parms and command buffer) 

OUTPUT: Values set in INMCCOM. 

EXIT NORMAL: BR 14 Return to caller 

EXTERNAL REFERENCES: 

ROUTINES: 

The following are invoked via PLS CALL: 

INMCMSGI - Message issuing routine 

The following are invoked via CALLTSSR: 

IKJPARS - Command parse routine 

DATA AREAS: 

INMXCOM - RECEIVE command communications area 
INMCCOM * Command parameter structure 
INMXPRMD - Installation options block 
INMPDL - Parameter description lists 

CONTROL BLOCKS: 

CVT, PSA, 

CPPL, PPL, ECT, UPT 
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INMRSCMD - MODULE OPERATION 


XNMRSCMO performs the following functions: 

Cl) Build the XKJPARS parameter list and pass 
the user's command to XKJPARS. 

(2) Move the values extracted by XKJPARS into 
local variables (in INMCCOM, INMRCOM) 

(3) Release XKJPARS space. 

C4) Invoke the RECEIVE start up exit 

routine* INMRZ01* to verify parameters. 
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INMRSCMD - DIAGNOSTIC AIDS 


ENTRY POINT NAME: INMRSCMD 


MESSAGES: INMR008I IKJPARS FAILED* ERRCODE: rvm 


ABEND CODES: None 


WAIT STATE CODES: None 


RETURN CODES: 

EXIT NORMAL: 

Return code set in the variable FQUIT of 
the common parameter structure INMCCOM. 

0 - Everything is normal* 

8 - Bad return code from IKJPARS* 


REGISTER CONTENTS ON ENTRY: 

Register 8 - Address of INMCCOM 

Register 13 - Save area address 
Register 14 - Return address 
Register 15 - Entry point address 
Other - Unpredictable 


REGISTER CONTENTS ON EXIT: 

EXIT NORMAL: 

Register 15 - Always zero 
Other - Unchanged 
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1NMRSCMD - RECEIVE Command Scan Subroutine 


STEP 01 


INJ1RM 

c> 

XNMRSCMD 


INMRSCMD invokes IKJPARS to scan the 
RECEIVE command parameters. After syntax 
checking, INMRSCMD moves the values into 
local variables. 


XNMCCOM 


FQUIT 


XKJPPL 


PPL 


XNMCCOM 


MODIDPTR 


XKJCPPL 


CPPLCBUF CPPLUPT 
CPPLECT 


-> 1011 Build the parse parameter 
' 11 — 1 list defined by the XKJPPL 
structure. Xnvoke the 
IKJPARS routine to syntax 
scan the RECEIVE command 
parameters. 

A. INVOKE IKJPARS TO SCAN THE COMMAND. 
« ■_ 


CALLTSSR 


£P=IKJPARS, MF=(E>( X)) 


KINMCCOM 


MODIDPTR 


PPLUPT 

PPLECT 

PPLECB 

PPLPCL 

PPLANS 

PPLCBUF 

PPLUWA 


INMREGS 


RIB 


INMREGS 


R15 


Be ISSUE MESSAGE IM1R035 IF PROMPTING IS 
NOT ALLOWEDe 


INMCMSGI 


C. ISSUE MESSAGE INMR036 FOR OTHER ERRORS. 
■ *_ 


INMCMSGI 


MSGS 

MSGFLAGS 

PLAINMSG 

PARSMSG 

FRC12 

RC 

MSGRC 


MSGS 

MSGFLAGS 

DECMSG 

PARSMSG 

FRO 12 

RC 

MSGRC 

MSGFIXED 


INMPDL 


DSNPTR DSNPRES 
IDNPRES 


ZNMRCOM 


ID 

INDSNL 1 

INMEML 

| 


INMPDL 


DSNLEN IDNLEN 
IDNCHAR 


INMRCOM 


USERID 


02 Move information from the 
— 1 PDE's returned by IKJPARS to 
local variables in INMRCOM* 


A. RELEASE IKJPARS STORAGE. 


IKJRLSA 


FNONJES 

FINDDN 

FINDSN 

FINMEM 

FRPRM 

FALTUID 

ID 

INDDN 
INDSNL 
INDSN 
INMEML 
INMEM 
, INDDNL 


LY28-1105-2 (c) Copyright IBM Corp. 1981, 1986 


Section 2: Module Information 2-163 


































'Contains Restricted Materials of IBM" 
Licensed Materials - Property of IBM 



2-164 Interactive Data Transmission Faoility Logic LY28-1105-2 Cc) Copyright IBM Corp. 1981 > 1986. 




"Contains Restricted Materials of IBM" 
Licensed Materials - Property of IBM 


XNMRUXNP - MODULE DESCRIPTION 


DESCRIPTIVE name: User Prompt Routine 
FUNCTION: 

INMRUINP is the RECEIVE command routine that 
prompts the user for information to control 
the restoring of data files. It first 
invokes the INMRZ11 exit routine that can 
choose to bypass the user prompt and supply 
the RECEIVE controls directly. Normally, 
however, INMRUINP sends messages telling the 
user what has arrived and then syntax checks 
the reply. 

ENTRY POINT: XNMRUXNP 
PURPOSE: See FUNCTION 
LINKAGE: PLS CALL 
CILLERS: INMRO 
INPUT: 

All input is provided via the common parameter 
structure INMCCOM. The following fields are used: 

PINVALID, FEOF, CPPLPTR 

OUTPUT: 

Control variables for the RECEIVE operation 
stored in the common parameter structure INMCCOM. 

EXIT NORMAL: BR 14 Return to caller 

EXTERNAL REFERENCES: 

ROUTINES: 

The following are invoked via PLS CALL: 

INMCMSGI - Message issuing routine 

The following are invoked via CALLTSSR: 

IKJEFF02 - TSO message issuing routine 
IKJPARS - Command pause routine 

DATA AREAS: 

INMRCOM - RECEIVE command communications 
area 

INMCCOM - Common parameter structure 
INMRCINF - Received file description table 
INMXPRMD - Installation options block 
INMRATXT - Output data set allocation text 
unit list 

INMPDL - Parameter description list 
CONTROL BLOCKS: 

CVT, DCB, CPPL, PPL, IEFZB4D2, IKJEFFMT, 

ECT 

TABLES: 

CBUF - User input buffer 

TRTBL1 - Hex to EBCDIC conversion 
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XNMRUXNP - MODULE OPERATION 


1) Invoke the RECEIVE exit - invocation routine 
INMR2. INMRZ Gives control to the RECEIVE data 
processing exit routine INMRZ11 . 

The EXIT can request RECEIVE termination or 
it can choose to specify all the RECEIVE 
controls directly. 

2) Send messages to the user 
identifying the sender of the transmission 
and giving the names of the transmitted data. 

31 Prompt the user for restore or 

copy parameters. 

4) Pass the prompt reply (or string 

from exit INMRZ11) to IKJPARS and, on return, 

moves the values into INMRCOM. 
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XNMRUXNP - DIAGNOSTIC AIDS 


ENTRY POXNT NAME: INMRUINP 


MESSAGES: 


INMR032I 

INMR033I 

INMR034I 

INMR035I 

INMR036I 

INMR042I 

INMR043I 

INMR044I 

INMR060I 

INMR064I 

INMR800I 


INMR901I 

INMR902I 

INMR906I 

INMR907I 

IKMR908I 


INMR909I 

INMR934I 


RECEIVE COMMAND TERMINATED. INCORRECT 
USE OF THE RESTORE KEYWORD. 

FILE TYPE CANNOT BE RESTORED. 

RECEIVE COMMAND TERMINATED. FAILURE IN 
COMMAND SYNTAX CHECKING. 

THE COMMAND HAS INCOMPLETE OR IN ERROR, 
BUT PROMPTING HAS INHIBITED. 

RETURN CODE nn FROM IKJPARS. 

RECEIVE FAILED) SYSTEM CANNOT PROMPT YOU 
FOR INFORMATION. 

PROMPTING HAS INHIBITED. 

RETURN CODE nn FROM IKJEFF02. 

RECEIVE COMMAND TERMINATED. OUTPUT 
DATASET UNUSABLE. 

A SINGLE MEMBER HAS SPECIFIED, BUT MORE 
THAN ONE MEMBER HAS BEING RECEIVED. 

THE RECEIVE COMMAND FAILED. THE 
PUTGET SERVICE ROUTINE ISSUED 
RETURN CODE 'nn'. 

DATASET dsname FROM userid ON nodename 
MEMBERS: memberlist 

ENTER RESTORE PARAMETERS OR 'DELETE* OR 
•END'. 

ENTER COPY PARAMETERS OR 'DELETE' OR 
•END'. 

THE INPUT FILE ATTRIBUTES ARE: DSORG=xx, 
RECFM=rr, BLKSIZE=nn, LRECL=m, 

SIZE=rmK BYTES. 

YOU MAY ENTER DSNAME, SPACE, UNIT, VOL, 
OLD/NEH, OR RESTORE/COPY/DELETE/END. 

A SINGLE MEMBER HAS SPECIFIED, BUT AN 
ENTIRE PARTITIONED DATA SET WAS BEING 
RECEIVED. 


ABEND CODES: None 


WAIT STATE CODES: None 

RETURN CODES: 

EXIT NORMAL: 

Return code set in the variable FQUIT of 
the common parameter structure INMCCOM. 


0 - Everything is normal. 
12 - An error has occurred. 


REGISTER CONTENTS ON ENTRY: 


Register 8 
Register 13 
Register 14 
Register 15 
Other 


Address of INMCCOM 
Save area address 
Return address 
Entry point address 
Unpredictable 
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XNMRUXNP - DIAGNOSTIC AIDS 

REGISTER CONTENTS ON EXXT: 

EXIT NORMAL: 

Register 15 - Always zero 
Other - Unchanged 


I Continued) 
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INMRUINP - User Prompt Routine 


STEP 01 


INnKU 

c> 


INMRUINP 


INMRUINP is the RECEIVE command routine 
that prompts the user for information to 
control the restoring of data files. It 
first invokes the INMRZ11 exit routine 
that can choose to bypass the user prompt 
and supply the RECEIVE controls directly. 
Normally> however> INMRUINP sends messages 
telling the user what has arrived and then 
syntax checks the reply. 


INMCCOM 


INITIALIZE FOR PROCESSING 



KINMCCOM 


MODIDPTR 


RPLYPTR 


INMCCOM 


INMRCOM 


FINVALID FEOF 


INMRCOM 


INMRCOM 


The input file is not 
recognized as an Interactive 
Data Transmission Facility 
file? issue a warning 
message to the user 
indicating that only a the 
incoming file is invalid and 
display the first record of 
the file. 


A. ISSUE MESSAGE INMR921 INDICATING INVALID 
INPUT DATA 


INMCMSGI 


B. ISSUE MESSAGE INMR922 DISPLAYING THE 
INVALID RECORD 


INMCMSGI 




MSG# 

MSGFLAGS 

STRNGMSG 

MSGSTRL 

MSGSTRP 


C. ISSUE MESSAGE INMR139 IF THE INPUT FILE 
IS EMPTY 

/I-Kj- 

\|-«/ INMCMSGI 


KINMCCOM 

l/|- 

MSG# 

MSGFLAGS 

PLAINMSG 

FRC12 

RC 
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INMRUXNP - User Prompt Routine 


STEP 03 


XNMRCXNF 


FRESTLOG RDSNAME 


INMRCOM 


FUID FNODE 
INFCOUNT 


IKJEFFMT 


MSGCSECT 


XNMRCXNF 


RDSNAMEL 


IKJEFFMT 


MSGTABLE 


XNMCCOM 


CPPLPTR 


XNMRCXNF 


FMEMR 


XNMRCXNF 


MEMLPTR 


XEFZB4D0 


S99TUNUM 


IEFZB4D0 


S99TULEN S99TUPRM 


£ 


XNMRCXNF 


FRESTLOG 


INMRCOM 


—> 
-K 


—> 
-J\ 
■V 


03 


Build the initial arrival 
message to be sent to the 
user* Includes the name of 
the sender* the name of the 
transmitted data set* and 
the names of any selected 
members in this message* 


A. ISSUE MESSAGE INMR901 FOR THE RECEIVED 
DSNAME. 


CALLTSSR 


EP=IKJEFF02, MF=( E*(1)) 


B. ISSUE MESSAGE INMR902 FOR THE MEMBER 
LIST. 

/!-1\.- 


\|-1/ 


INMCMSGI 


C. ISSUE MESSAGE INMR902 FOR THE MEMBER 
LIST. 

/I-1\|- 

\i -./I INMCMSGI 


04 


Prompt the user to enter 


KXKJEFFMT 

n / . 

MSGTABLE 
LISTPTR 
MTCPPL 
MTHIGH 
MSGCSECT 
MTPUTLSN 
MTHEXSW 
MTPGMSW 
MSGID 
MTLEN 
MTADOR 


Ll\INMREGS 

/ 


R1 


J \INMCC0M 

V 

MSG# 

MSGFLAGS 
STRNGMSG 
MSGSTRL 
MSGSTRP 


-KINMCCOM 

V 

MSG# 

MSGFLAGS 

STRNGMSG 

MSGSTRL 

MSGSTRP 


-KINMCCOM 




1 — 1 parameters for allocating 

- }/ 


FNOPRMPT FINVALID 

• 

• 

the output data set and 


MSG# 

FEOF 

• 

other receive control 




• 

• 

values. 


XNMCCOM : 



FQUIT 
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ZNMRUZNP - User Prompt Routine 


STEP 04A 


ZNMRCZNF 

FIEBCOPY OUTRECFM 
OUTBLKSI CUTLRECL 

ZKJECT 

Iectbkgrd 


ZKJEFFMT 

MSGCSECT 


ZNMRCZNF 


> A. BUILD THE KESSAGE INDICATING THE DCB 
\ ATTRIBUTES AND SIZE OF THE INCOMING 

/ DATA. 

B. ISSUE PROMPT INMR906 OR INMR907 TO 
OBTAIN ^USER PARAMETERS. 

\|-1/ CALLTSSR 

EP-IKJEFF02, MF=CE»(1)) 



C. ISSUE MESSAGE INMR043 IF PROMPTING IS 
NOT ALLOWED. 


INMCMSGI 


ISSUE MESSAGE INMR044 FOR OTHER PROMPT 
ERRORS i^ 

\l-./! INMCMSGI 


E. OUTPUTS PTGTOLD,SINGLE,TERM), 
TERMGET=(EDIT,WAIT),MF=(E,IOPL) 




PARM=PGPB, UPT=(R6), 
ECT=(R7), ECB=PTGTECB, 


F. ISSUE MESSAGE INMR800 FOR PUTGET ERRORS 


INMCMSGI 


KIKJEFFMT 

/, - 

MSGTABLE 

LISTPTR 

MTCPPL 

MTHIGH 

MSGCSECT 

MTPGMSW 

MSGID 

MTLEN 

MTHIGHL 

MTADDR 




MSG# 

MSGFLAGS 

PLAINMSG 

FRC12 

RC 


\INMCCOM 

/, - 

MSG# 

MSGFLAGS 

DECMSG 

FRC12 

RC 

MSGFIXED 

MNMREGS 



MSG# 

MSGFLAGS. 

DECMSG 

MSGFIXED 


KINMCCOM 

y/ \ - 

FEND 
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INMRATXT 


TUDSNL TUDSNV 
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XNMRUXNP - User Prompt Routine 


STEP 06B 


INMRCXNF 


Ifmemr fiebcopy 


INMPDL 


DSNPTR IDNPRES 


XNMRATXT 


TURLSEK TLRJNIT 
jTUUNITL TUVOL . 
jTUVOLL TUDIR | 

INMRCOM 

FRESTORE FINVALID 
FEOF 

INMPDL 

DSNLEN IDNLEN i 
IDNINTEG IDNCHAR 

INMRCINF 


IEF2B4D2 

DALTRK DALCYL 
DALBLKLN 

INMXPRMD 

IPARMUTOT 


B. ISSUE MESSAGE INMR934I INDICATING THAT A 
MEMBER NAME IS INVALID• 


INMCMSGI 



MNMCCOM 

\/\ - 

MSG# 

MSGFLAGS 

PLAINMSG 

FRC12 

RC 

MNMRCOM 


FCOPY 
FRESTORE 
FRPRM2 
FMEM 
FUNIT 
FVOL 
FSPACE1 
FSPACE2 
FDIR 
FBLKSZ 
FDFLTDSP 
FDEL 
MEMBER 
MEMBERL 
USRBLKSZ 
UTOUT 

MNMRCINF 

|/|- 

FRESTLOG 

FPREVIEW 

RMEML 

RMEM 

MNMRATXT 

\S\ - 

TUPRLSE 

TUPVOL 

TUPUNIT 

TUPDIR 

TUSTATSV 

TUSPC1V 

TUSPC2V 

TUUNITL 

TUUNITV 

TUVOLL 

TUVOLV 

TUBCTK 

TUBCT# 

TUBCTV 

TUDIRV 

MNMCCOM 

j/|- 

MSG# 

MSGFLAGS 

PLAINMSG 

FRC12 

FEND 

RC 


07 At the end of processing the 
L — 1 input variables# free the 
XKJPARS. 


MNMREGS 

y/ \ - 

R1 
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XNMRUINP - User Prompt Routine STEP 07A 
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INMRVBS - MODULE DESCRIPTION 


DESCRIPTIVE NAME: Transmission Pile Reload Routine 
FUNCTION: 

INMRVBS reads converted records from the JES 
spool and rebuilds them in their original 
format. 

ENTRY POINT: INMRVBS 
PURPOSE: See FUNCTION 
LINKAGE: PLS CALL 
CALLERS: INMRM 
INPUT: 

Input parameters via the INMRCOM parameter 
structure. The following fields are used: 

INPDCBP, OUTDCBP, RRECFM, RBLKSZ, RLRECL> 

FVBS, FPREVIEW 

Input data is read from the input file whose 
DCB is pointed to by INPDCBP* 

OUTPUT: 

Output data is written to the file whose DCB is 
pointed to by OUTDCBP. 

EXIT NORMAL: BR 14 Return to caller 

EXTERNAL REFERENCES: 

ROUTINES: 

The following are invoked via PLS CALL: 

INMCMSGI - Message issuing routine 

The following are invoked via CALLTSSR: 

IKJEFF02 - TSO message issuing routine 

DATA AREAS: 

INMRCOM - RECEIVE command communication area 
INMCCOM - Common parameter structure 
INMRCINF - Received file description table 
INMXPRMD - Installation options block 

CONTROL BLOCKS: CVT, DCB, IKJEFFMT 

TABLES: 

BUF - Output file buffer and control block 

INREC - Input file record 

INVB - VBS overlay for input record segment 

VSCTL - VBS control bit overlay 

DEVTYPEA - Overlay for device type information 
MMEXLST - DCB Exit list 
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INMRVBS - MODULE OPERATION 


Copy records from an input file (normally JES) 

to an output file. The input file is OPEN at 

entry, but the output file must be opened. 

The following steps are performed: 

1) Use DEVTYPE to determine characteristics of 
the output device. 

2) OPEN the output file. A DCB OPEN exit 
supplies appropriate DCB parameters if they 
are not already present. 

3) GETMAIN space for and build buffers and 
controls for the output file. 

4) Read input records. Look at contents of 
record to see if carriage control was appended 
by another operating system. If so, skip past 
the first character. 

5) Using pieces from the input records and build 
the output blocks (not records). As each 
block is finished, write it. When the buffer 
is needed for re-use, issue a CHECK. 

6) FREEMAIN the space obtained in step (3) and 
CLOSE the output file. 
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ZNMRVBS - DIAGNOSTIC AIDS 


ENTRY POINT NAME: INMRVBS 


MESSAGES: 

XNMR006I RECEIVE COMMAND TERMINATED. 

THE DATA SET YOU SPECIFIED 
CANNOT BE USED TO RECEIVE THE 
INCOMING DATA SET. THE BLOCK 
SIZES ARE INCOMPATIBLE. 

XN1R060I RECEIVE COMMAND TERMINATED. OUTPUT 
DATASET UNUSABLE. 

INMR065I RECORD FORMAT INCOMPATIBLE WITH RECORD 
FORMAT OF INCOMING FILE. 

XNMR066I INPUT: RECFM=ff, LRECL=rm> BLKSIZE-m 
FORMAT OF INCOMING FILE. 

INMR108I RECEIVE COMMAND TERMINATED. TRAILER 
RECORD MISSING. 

INMR109I AN ERROR HAS ENCOUNTERED WHILE 
PROCESSING A CONTROL RECORD. 

INMR130I RECEIVE COMMAND TERMINATED. INPUT 
DATASET UNUSABLE. 

INMR135I PERMANENT I/O ERROR READING INPUT FILE. 

INMR136X standard I/O error message 

INMR138I RECEIVED RECORD LONGER THAN OUTPUT 
BLOCKSIZE. 


ABEND CODES: None 


WAIT STATE CODES: None 


RETURN CODES: 

EXIT NORMAL: 

Return code set in the variable FQUIT of 
the communications area INMRCOM. 

0 - Everything is normal. 

12 - An error occurred. 


REGISTER CONTENTS ON ENTRY: 

Register 8 - Address of INMCCOM 

Register 13 - Save area address 
Register 14 - Return address 
Register 15 - Entry point address 
Other - Unpredictable 


REGISTER CONTENTS ON EXIT: 

EXIT NORMAL: 

REGISTER 15 - Always zero 
Other - Unchanged 
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XHADCB 


DCBBLKSI 


2-178 Interactive Data Transmission Facility Logic LY28-1105-2 (c) Copyright IBM Corp. 1981 > 1986. 


































'Con-tains Restricted Materials of IBM" 
Licensed Materials - Property of IBM 


INNRVBS - Transmission File Reload Routine 


STEP 02 


XNMRCXNF 


XNMRCOM 


-> 02 Performs startup and 

1 — 1 shutdown functions for the 
data conversion process. 
This includes handling 
incoming V-format records 
and handling incoming F- or 
U-format records. 


SEGCNTL 


XNMRCXNF 


XNMRCOM 


SEGFIRST SEGCNTL 


-> 03 Rebuild varying length 
1 — 1 records. 

A. WRITE THE OUTPUT BUFFER. 

/'-'\|- 

\i-1/ WRITEIT: 10 


BUFENDPT BUFFULL 


BUFDATA 


XNMRCOM 


-> B. IF BUFFER NOT EMPTY 8 BLOCKED INPUT 8 
NOT SPANNED & STARTING NEW RECORD THEN 
F ILL B UFFER 

\i- \/\ FILLBUF: 09 ~~ ~1 


SEGFIRST 


C. M OVE T HE RECORD SEGMENT. 

\i-1/| GETINP: 14 


XNMRCOM 



VSCTL 


R1 R2 


XNMRCOM 


-> 041 Rebuild fixed length and 
1 — 1 undefined length records. 


A. C OPY T HE SEGMENT TO THE OUTPUT BUFFER. 
\i-1 / GETINP i 14 I 
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XNMRVBS - Transmission File Reload Routine 


STEP 04B 


XNMRCOM 


IOPLAREA SEGFIRST 


XNMRCXNF 


IFPREVIEW 



PARM=PTPB> 

. OUTPUT=(PREVBLK,,,DATA), 
|MF=(E,(D) 


BUFENDPT 


C. WRITE THE OUTPUT BUFFER. 

/I-1\,- 

\i- 1 / WRITE IT s 10 


BUFDATA 


BUFDECB BUFFULL 
BUFDATA 

XHADCB 


XNMRCOM 


IFPROFS INPIOERR 


XNMRCOM 


> 05 Write the last output 
\ 1 — 1 buffer. 

/ 

A. WRITE THE LAST BLOCK. 




> B. IF THE BUFFER IS WOT EMPTY, CHECK WRITE 
FOR COMPLETION. 



PROCESS THE CONTROL RECORD 
THAT FOLLOWS THE DATA FXLE. 
THXS RECORD CAN BE EXTHER 
THE XNMR06 TRANSMISSION 
TRAILER RECORD, AN XNMR03 
RECORD ANNOUNCING THE NEXT 
DATA FXLE OR A PROFS TRAILER 
RECORD. 


KXNMREGS 

IriR2~ 


\XHADCB 
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XNMRVBS - Transmission File Reload Routine 


STEP 06A 


XNMRCOM 


-> A. R EAD T HE NEXT PHYSICAL RECORD. 
\i-»/| GETREC: 15 


XNMRCOM 


FPROFS INPIOERR 


XNMRCOM 


!INRPTR INRLEN 

XNMRCOM 


J \INMRCOM 

i/- 


XNMRCOM 

INPIOERR 

XNMRCOM 


.INRPTR INRLEN 


XNMRCOM 


XNMRCOM 


INPIOERR 


XNMRCOM 


INRPTR INRLEN 


-> B. IF INPUT HAS BEEN USED, READ THE NEXT 
(OR FIRST) RECORD* 


GETREC: IS 


-> C. IF INPUT HAS BEEN USED, READ THE NEXT 
(OR FIRST) RECORD 


GETREC: 15 


07 Close the output data set 
— 1 and free the output buffer 
space• 



SEGFIRST 

SEGLAST 

SEGCNTL 

INRPTR 

INRLEN 


\XNMRC0M 


SEGL 

INRPTR 

INRLEN 


\XNMRCOM 

/«- 

SEGF 

INRPTR 

INRLEN 


A. CLOSE THE O UTPUT DATA SET* 

\i- ■/CLOSE 


I((ODCBPTR)), MF=(E, OPENLIST) 


B. FREE T HE OU TPUT BUFFERS* 

\|-1/ FREEMAIN 

RC, SP=2 


08 ISSUE TERMINATION ERROR 
1 - 1 MESSAGES 

A* ISSUE MESSAGE INMR108 IF THE TRAILER 
RECORD WAS MISSING* 

— INMCMSGI 


KXNMCCOM 

i/|- 

MSG# 

MSGFLAGS 

PLAINMSG 

FRC12 

RC 
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XNMRVBS - Transmission File Reload Routine 


STEP 08H 
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XNMRVBS - Transmission File Reload Routine 


STEP 10 
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XNMRVBS - Transmission File Reload Routine 


STEP 15B 
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INMRZ - MODULE DESCRIPTION 


DESCRIPTIVE NAME: RECEIVE Installation Exit-Invocation 

Routine 


FUNCTION: 

INMRZ is invoked by any RECEIVE module that 
wants to invoke a user exit* INMRZ builds the 
appropriate parameter list* invokes the exit* 
and performs initial processing on any returned 
parameters returned by the exit* 

ENTRY POINT: INMRZ 

PURPOSE: See FUNCTION 


LINKAGE: ATTACH 


CALLERS: 


INMRM 

For 

INMRM 

For 

INMRO 

For 

INMRUINP - 

For 

INMRM 

For 

INMRCODE - 

For 


exit routine INMRZ01 
exit routine INMRZ02 
exit routine INMRZQ4 
exit routine INMRZ11 
exit routine INMRZ12 
exit routine INMRZ13 


INPUT: None 
OUTPUT: None 


EXIT NORMAL: BR 14 Return to caller 


EXTERNAL REFERENCES: 


ROUTINES: 

The ‘following are invoked via PLS CALL: 
INMCMSGI - MESSAGE issuing routine 

The following are invoked via CALLTSSR: 
IKJEFF02 - TSO message issuing routine 

There are weak external references for: 

INMRZOI - RECEIVE startup exit routine 
INMRZ02 - RECEIVE termination exit routine 
INMRZQ4 - RECEIVE acknowledgment exit routine 
INMRZ11 - RECEIVE data preprocessing exit 
routine 

INMRZ12 - RECEIVE data postprocessing exit 

routine 

INMRZ13 - RECEIVE decryption exit routine 
DATA AREAS: 

INMRCOM - RECEIVE command communications 
area 

INMCCOM - Common parameter structure 
INMRCINF - Received file description table 

CONTROL BLOCKS: CVT, IKJEFFMT 

TABLES: PLIST - Parameter list structures 
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XNMRZ - MODULE OPERATION 


All RECEIVE command modules wishing to invoke 
a user exit routine call IMMR2. INMRZ is 
divided between common code for those functions 
that are common to all exits and unique code 
that builds and processes exit-unique parameter 
sections. 

The common code functions include determining 
if the exit routine exists> passing of the user 
word in the parameter list* passing the TSO CPPL, 
and passing and processing a message area that 
the exit can use to have messages sent to the 
user. 
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XNMRZ - DIAGNOSTIC AIDS 


ENTRY POINT NAME: XNMRZ 


MESSAGES: 

INMR005I INVALID MESSAGE LENGTH PROVIDED 
BY INSTALLATION EXIT FOR MESSAGE 
INMRI51I 

INMR150I RECEIVE TERMINATED BY EXIT INMRZxx 
INMR151I message from exit routine 


ABEND CODES: None 


WAIT STATE CODES: None 


RETURN CODES: 

EXIT NORMAL: 

Return code in register 15 is always zero* 


REGISTER CONTENTS ON ENTRY: 

Register 1 - Exit routine number 

Register 13 - Save area address 
Register 14 - Return address 
Register 15 - Entry point address 
Other - Unpredictable 


REGISTER CONTENTS ON EXIT: 

EXIT NORMAL: 

Register 15 - Zero 
Other - Unchanged 
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INMRZ - RECEIVE Installation Exit-Invocation Routine 


STEP 01 


INMRM - For exit routine 
INMRZ01 INMRM - For exit 
routine INMRZ02 INMRO - For 
exit routine INMRZQ4 INMRUINP - 
For exit routine INMRZ11 INMRM 
- For exit routine INMRZ12 
INMRCODE - For exit routine 
INMRZ13 


PARAMETERS 


c- 

INMRZ 
- K 


EXITS 


V 


PARAMETERS 


EXITS 


XNMRCOM 


XNMRCOM 


B. PERFORM UNIQUE SETUP FOR THE USER EXIT 


XNMRCOM 

FACKERR R01TUPL 
ADSNAME 

XNMRCOM 


—> 
-K 


C. PERFORM UNIQUE SETUP FOR THE USER EXIT 
INMRZ04. 


XPRM1PTR XPRMAPTR 
ACKERRPT 


XNMRCOM 


R01TUPL 


XNMRCXNF 


FRESTLOG R02TUPL 


XNMRCOM 


—> 


0. PERFORM UNIQUE SETUP FOR THE USER EXIT 
INMRZ1I. 


RPRM2PTR INPDCBP 
XPRM1PTR RPLYPTR 


XNMRCXNF 


XPRM2PTR 


FALTUID ID 

USERID 

_1 

INMRZ01. 

-1/ 

PUSER1 

PUSER2 

PZ01END 





INMRZ is invoked by any RECEIVE module 
-that wants to invoke a user exit. INMRZ 
builds the appropriate parameter list> 
invokes the exit, and performs initial 
processing on any returned parameters 
returned by the exit. 


01 


Perform exit-specific setup 
functions. This includes the 
initialization of any 
parameters unique to the 
exit and parameter list 
pointers to them. Each exit 
is processed by a separate 
source segment. 


A. PERFORM UNIQUE SETUP FOR THE USER EXIT 


-J\PLIST 


-KPLXST 


CUMRECCT CUMFILES 

: 

INMRZ02. 

-,/ 

PSFILES 

PRECCT 

PRETCODE 

PZ02END 

XNMCCOM : 



FRC04 FRC08 
FRC12 FRCX6 









■J\PLXST 
Vf 


PPARMA 

PACKDSN 

PATXTUSR 

PPARM6 

PERRC00E 

PZ04END 


JSPLIST 

Vr 


PPARM2 

PTXTDA 

PTXTUSR 

PPARM3 

PPARM4 

PREPLY 

PJINDCB 

PZ11END 
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INMRZ - RECEIVE Installation Exit-Invocation Routine 


STEP 01E 


INMCCOM 



-> E. PERFORM UNIQUE SETUP FOR THE USER EXIT 
1 INMRZ12. 


INMRCOM 


FDEL 

FUID 

FNODE 

OUTDDN 

RECCT 

R01TUPL 


INMRCINF 


R02TUPL 


INMRCOM 


RPRM2PTR XPRM1PTR 


INMRCINF 


XPRM2PTR 


INMRCOM 


ULPDSDDN CODEDON 
R01TUPL 


INMRCINF 


R02TUPL 


INMRCOM 


RPRM2PTR REPROPTR 
XPRM1PTR 


INMRCINF 


XPRM2PTR XPRM3PTR 


PARAMETERS 


EXITS 


INMRCOM 


FNONJES USERWORD 


INMRCOM 


RPRMPTR 


INMCCOM 


CPPLPTR 


g 


F. PERFORM UNIQUE SETUP FOR THE USER EXIT 
INMRZ13. 





02 Perform common exit setup 
— 1 functions. Initialize 

parameter pointers that are 
common to all of the exits. 


B 


\PLIST 

/% - 

PPARM2 

PTXTDA 

PTXTUSR 

PPARM3 

PPARM4 

PRETC 

POUTDDN 

PLRECCT 

PNOTNODE 

PNOTUID 

PZ12END 



\PLIST 

/«- 

PPARM2 

PTXTDA 

PTXTUSR 

PPARM3 

PPARM4 

PREPRO 

PCINDDN 

PCOUTDDN 

PPARM5 

PZ13END 



MNMRCOM 

/«- 

USERWORD 

\PLIST 

/r- 

PUWORD 

PPARM1 

PACTFLAG 

PCPPL 

PMSG 

PSTATUS 
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XNMRZ - RECEIVE installation Exit-Invocation Routine 


STEP 03 


PL1ST 


Invoke the user exit. 
Manipulate module id trace 
pointers so that any exit 
routine ABEND will be 
attributed to the exit. 


A. IF THE EXIT ROUTINE EXISTS, INVOKE IT 
/I-l\.- 

\i- 1 / EXITRTN 


KINMREGS 

l/|-1 

R1 R15 

KXNMCCOM 

^ImodidptrI 


XNMRE6S 



Perform common termination 
for all exits, issuing the 
"terminated by exit" message 
and the message (if any) 
passed back by the exit. 


A. ISSUE MESSAGE INMR150 IF THE EXIT 
ROUTINE CODE IS NOT 0. 

/I-1\.- 

\l-,/| INMCMSGI 



\XNMCC0M 

ImodidptrI 


NXNMCCOM 



\XNMREGS 

/l -1 

R1 


XNMREGS 


ISSUE MESSAGE INMR005 IF THE MESSAGE 
LENGTH ^IS I NVALID. 

\i-i/l INMCMSGI 


KINMCCOM 

l/|-1 

MSG# 

MSGFLAGS 

DECMSG 

MSGFIXED 
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INMRZ - RECEIVE Installation Exit-Invocation Routine 


STEP 05 


PARAMETERS 


05 After common post-processing 
—has been performed, INMRZ 
invokes one of a set of 
segments to perform any 
exit-specific 
post-processing which must 
be done. 


INMRCOM 


INMRCOM 


INMCCOM 


INMRCOM 



> A. PERFORM UNIQUE TERMINATION ACTIONS FOR 
\ EXIT INMR201. 

/ 


B. PERFORM UNIQUE TERMINATION ACTIONS FOR 
EXIT INMRZ11. 



MNMRCOM 

/.- 

FALTOK 
FALTNOK 
USERID 
USERIDL 


MNMRCINF 


FRESTLOG 

FRSTTEMP 

RDSNAMEL 

RDSNAME 


MNMRCOM 

/«- 

FNOPRMPT 

FDEL 

FDONEXIT 


C. PERFORM UNIQUE TERMINATION ACTIONS FOR 
EXIT INMRZ12. 


J MNMRCOM 

l/f- 

FKEEP 

FDEL 


INMCCOM 


-> D. PERFORM UNIQUE TERMINATION ACTIONS FOR 
EXIT INMRZ13• 


E. RETURN TO THE CALLER. 


ITT 


MNMRCOM 

/.- 

FNOCIPHR 

FDEL 

MNMCCOM 

ImodxdptrI 
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ZNNRZ01 - NODULE DESCRIPTION 

DESCRIPTIVE NAME: RECEIVE Startup Exit Routine. 
FUNCTION: 

INMRZ01 is an exit routine that can 
be replaced by the installation. It does nothing 
except set return code zero and return to the 
caller. 

ENTRY POINT: INNRZ01 
PURPOSE: See FUNCTION 
LINKAGE: PLS CALL 
CALLERS: INMRZ 

INPUT: All input is provided via the parameter list. 
OUTPUT: None 

EXIT NORMAL: BR 14 Return to caller 

EXTERNAL REFERENCES: 

ROUTINES: None 
CONTROL BLOCKS: None 
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XNMRZ01 - MODULE OPERATION 


XNMRZ01 is an exit routine that can be 
replaced by the installation. It does nothing 
except set return code zero and return to the 
caller. 
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INMRZ01 - DIAGNOSTIC AIDS 


ENTRY POINT NAME: inmrzoi 

MESSAGES: None 

ABEND CODES: None 

WAIT STATE CODES: None 

RETURN CODES: 

EXIT NORMAL: 

Return code in register 15 is always zero. 


REGISTER CONTENTS ON ENTRY: 

Register 1 - Address of a parameter list 

Register 13 - Save area address 
Register 14 - Return address 
Register 15 - Entry point address 
Other - Unpredictable 


REGISTER CONTENTS ON EXIT: 

EXIT NORMAL: 

Register 15 - Always zero 
Other - Unchanged 
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XNMRZ01 - RECEIVE Startup Exit Routine* 


INMRZ 

c- 

INMRZ01 


INMRZ01 is an exit routine that can be 
replaced by the installation* It does 
nothing except set return code zero and 
return to the caller* 
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XNMRZ02 - MODULE DESCRIPTION 

DESCRIPTIVE NAME; RECEIVE Termination Exit Routine* 
FUNCTION: 

INMRZ02 is an exit routine that can be 
replaced by the installation* It does nothing 
except set return code zero and return to the 
caller. 

ENTRY POINT: XNMRZ02 
PURPOSE: See FUNCTION 
LINKAGE: PLS CALL 
CALLERS: INMRZ 

INPUT: All input is provided via the parameter list* 

OUTPUT: None 

EXIT NORMAL: BR 14 Return to caller 

EXTERNAL REFERENCES: 

ROUTINES: None 
CONTROL BLOCKS: None 
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1NMRZ02 - MODULE OPERATION 


INMRZ02 is an exit routine that can be 
replaced by the installation. It does nothing 
except set return code zero and return to the 
caller. 
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XNMRZ02 - DIAGNOSTIC AIDS 


ENTRY POINT NAME: INMRZ02 

MESSAGES: None 

ABEND CODES: None 

WAIT STATE CODES: None 

RETURN CODES: 

EXIT NORMAL: 

Return code in register 15 is always zero. 


REGISTER CONTENTS ON ENTRY: 

Register 1 - Address of a parameter list 

Register II * Save area address 
Register 14 - Return address 
Register 15 - Entry point address 
Other * Unpredictable 


REGISTER CONTENTS ON EXIT: 

EXIT NORMAL: 

Register 15 - Always zero 
Other - Unchanged 
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INMRZ02 


RECEIVE Termination Exit Routine. 


INMRZ 

c> 

INMRZ02 


III1RZ02 is an exit routine that can be 
replaced by the installation* It does 
nothing except set return code zero and 
return to the caller* 
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XNMRZ04 - MODULE DESCRIPTION 

DESCRIPTIVE NAME: RECEIVE Acknowledgment Exit Routine. 
FUNCTION: 

INMRZ04 is an exit routine than can be 
replaced by the installation• It does nothing 
except set return code zero and return to the 
caller. 

ENTRY POINT: XNMRZ04 
PURPOSE: See FUNCTION 
LINKAGE: PLS CALL 
CALLERS: INMRZ 

INPUT: All input is provided via the parameter list. 

OUTPUT: None 

EXIT NORMAL: BR 14 Return to caller 

EXTERNAL REFERENCES: 

ROUTINES: None 
CONTROL BLOCKS: None 
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XNMRZ04 - HODULE OPERATION 


1NMRZ04 is an exit routine that can be 
replaced by the installation. It does 
nothing except set return code zero and return 
to the caller. 
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XNMRZ04 - DIAGNOSTIC AIDS 


ENTRY POINT NAME: INMRZ04 

MESSAGES: None 

ABEND CODES: None 

WAIT STATE CODES: None 

RETURN CODES: 

EXIT NORMAL: 

Return code in register 15 is always zero. 


REGISTER CONTENTS ON ENTRY: 

Register 1 - Address of a parameter list 

Register 13 - Save area address 
Register 14 - Return address 
Register 15 - Entry point address 
Other - Unpredictable 


REGISTER CONTENTS ON EXIT: 

EXIT NORMAL: 

Register 15 - Always zero 
Other - Unchanged 
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XNMRZ04 - RECEIVE Acknowledgment Exit Routine* 


INMRZ 

INMRZ04 


INMRZ04 is an exit routine than can be 
replaced by the installation. It does 
nothing except set return code zero and 
return to the caller. 
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XNMRZ11 - NODULE DESCRIPTION 

DESCRIPTIVE NAME: RECEIVE Data Preprocessing Exit Routine. 
FUNCTION: 

INMRZ11 is an exit routine that can be 
replaced by the installation. It does nothing 
except set return code zero and return to the 
caller. 

ENTRY POINT: XNMRZ11 
PURPOSE: See FUNCTION 
LINKAGE: PLS CALL 
CALLERS: INMRZ 

INPUT: All input is provided via the parameter list. 

OUTPUT: None 

EXIT NORMAL: BR 14 Return to caller 

EXTERNAL REFERENCES: 

ROUTINES: None 
CONTROL BLOCKS: None 


LY28-1105-2 (c) Copyright IBM Corp. 1981, 1986 


Section 2: Module Information 2-207 



“Contains Restricted Materials of IBM” 
Licensed Materials - Property of IBM 


INMRZ11 - MODULE OPERATION 


INMRZ11 is an exit routine that can be 
replaced by the installation. It does nothing 
except set return code zero and return to the 
caller. 
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XNMRZ11 - DIAGNOSTIC AIDS 


ENTRY POINT NAME: XWRZ11 

MESSAGES: None 

ABEND CODES: None 

WAIT STATE CODES: None 

RETURN CODES: 

EXIT NORMAL: 

Return code in register 15 is always zero. 


REGISTER CONTENTS ON ENTRY: 

Register 1 - Address of a parameter list 

Register 13 - Save area address 
Register 14 - Return address 
Register 15 - Entry point address 
Other - Unpredictable 


REGISTER CONTENTS ON EXIT: 

EXIT NORMAL: 

Register 15 * Always zero 
Other - Unchanged 
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INMRZ11 - RECEIVE Data Preprocessing Exit Routine* 


INMRZ 

c> 

INMRZ11 


INMRZ11 is an exit routine that can be 
replaced by the installation. It does 
nothing except set return code zero and 
return to the caller. 
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XNMRZ12 - MODULE DESCRIPTION 

DESCRIPTIVE NAME: RECEIVE Data Postprocessing Exit Routine. 
FUNCTION: 

INMRZ12 is an exit routine that can be 
replaced by the installation. It does nothing 
except set return code zero and return to the 
caller. 

ENTRY POINT: XNMRZ12 

PURPOSE: See FUNCTION 
LINKAGE: PLS CALL 
CALLERS: INMRZ 

INPUT: All input is provided via the parameter list. 

OUTPUT: None 

EXIT NORMAL: BR 14 Return to caller 

EXTERNAL REFERENCES: 

ROUTINES: None 
CONTROL BLOCKS: None 
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INMRZ12 - MODULE OPERATION 


INMRZ12 is an exit routine that can 
bo replaced by the installation. It does 
nothing except set return code zero and return 
to the caller. 
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INMRZ12 - DIAGNOSTIC AIDS 


ENTRY POINT NAME: INMRZ12 

MESSAGES: None 

ABEND CODES: None 

WAIT STATE CODES: None 

RETURN CODES: 

EXIT NORMAL: 

Return code in register IS is always zero. 


REGISTER CONTENTS ON ENTRY: 

Register 1 - Address of a parameter list 

Register 13 - Save area address 
Register 14 - Return address 
Register 15 - Entry point address 
Other - Unpredictable 


REGISTER CONTENTS ON EXIT: 

EXIT NORMAL: 

Register 15 - Always zero 
Other - Unchanged 


LY28-1105-2 to) Copyright IBM Corp. 1981, 1986 


Section 2: Module Information 2-213 



“Contains Restricted Materials of IBM" 
Licensed Materials - Property of IBM 



2-214 Interactive Data Transmission Facility Logic LY28-1105-2 tc) Copyright IBM Corp. 1981 > 1986« 




"Con-tains Restricted Materials of IBM 19 
Licensed Materials - Property of IBM 


XNMRZ13 - MODULE DESCRIPTION 

DESCRIPTIVE NAME: RECEIVE Decryption Exit Routine. 
FUNCTION: 

INMRZ13 is an exit routine that can be 
replaced by the installation. It does nothing 
except set return code zero and return to the 
caller. 

ENTRY POINT: XNMRZ13 
PURPOSE: See FUNCTION 
LINKAGE: PLS CALL 
CALLERS: INMRZ 

INPUT: All input is provided via the parameter list. 

OUTPUT: None 

EXIT NORMAL: BR 14 Return to caller 
EXTERNAL REFERENCES: 
x ROUTINES: None 
CONTROL BLOCKS: None 
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XNMRZ13 - MODULE OPERATION 


INMRZ13 is an exit routine that can be 
replaced by the installation. It does 
nothing except set return code zero and return 
to the caller. 
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INMRZ13 - DIAGNOSTIC AIDS 


ENTRY POINT NAME: INMRZ13 

MESSAGES: None 

ABEND CODES: None 

WAIT STATE CODES: None 

RETURN CODES: 

EXIT NORMAL: 

Return code in register 15 is always zero* 


REGISTER CONTENTS ON ENTRY: 

Register 1 - Address of a parameter i*st 

Register 13 * Save area address 
Register 14 - Return address 
Register 15 - Entry point address 
Other - Unpredictable 


REGISTER CONTENTS ON EXIT: 

EXIT NORMAL: 

Register 15 - Always zero 
Other - Unchanged 
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XNMRZ13 - RECEIVE Decryption Exit Routine. 


INMRZ 

INMRZ13 


IWRZ13 is an exit routine that can be 
replaced by the installation* It does 
nothing except set return code zero and 
return to the caller* 
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INMR80 - MODULE DESCRIPTION 


DESCRIPTIVE NAME: Read Asis Routine 
FUNCTION: 

INMR80 reads varying length records from the 
input data set and writes them to the terminal* 
another sequential data set* or a member of a 
partitioned data set* 

ENTRY POINT: INMR80 

PURPOSE: See FUNCTION 

LINKAGE: PLS call 

CALLERS: INMRM 

INPUT: 

All input is provided via the RECEIVE command 
communications area INMRCOM* The fields used in 
this area are: 

INPDCBP (the DCB is already OPEN)* 

QUTDCBP (the DCB is or is not OPEN* 

FMSG, FPREVIEW, FNQOUT 

OUTPUT: The output file contains a copy of the input file* 
EXIT NORMAL: BR 14 Return to caller 
EXTERNAL REFERENCES: 

ROUTINES: 

The following are invoked via PLS CALL: 

INMCMSGI - Message issuing routine 

The following are invoked via CALLTSSR: 

IKJEFF02 - TSO message issuing routine 

DATA AREAS: 

INMRCOM - RECEIVE command communications 
area 

INMCCOM - Common parameter structure 
DCB EXIT LIST 

CONTROL BLOCKS: CVT* DCB 

TABLES: 

INBUF - input buffer 

MSGAREA - work area for IKJEFF02 parms 
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XNMR80 - MODULE OPERATION 


INMR80 performs the following functions: 

1) OPEN and verify the output data set. If no 
DCB attributes are available> RECFM=VB> 

LRECL = 255,BLKSIZE=3120 are assigned. 

2) Read records from the input file and write 
them to the output file. If the file is 

a message, blank the leading carriage control 
x'fe'. 

3) When end-of-fila is encountered> close the 
output file and return to the caller. 
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XNMR80 - DIAGNOSTIC AIDS 


ENTRY POINT NAME: INMR80 


MESSAGES: 

INMR060I RECEIVE COMMAND TERMINATED. OUTPUT 
DATASET UNUSABLE. 

INMR065I RECORD FORMAT OF OUTPUT DATASET 

INCOMPATIBLE HITH RECORD FORMAT OF 
INCOMING FILE. 

INMR066I INPUT: RECFM=rrr, LRECL-nnrm» BLKSIZE=tran 
INMR130I RECEIVE COMMAND TERMINATED. INPUT 
DATASET UNUSABLE. 

INMR135I PERMANENT I/O ERROR READING INPUT FILE 
INMR136I standard SYNADAF text 


ABEND CODES: None 


WAIT STATE CODES: None 


RETURN CODES: 

EXIT NORMAL: 

Return code set in variable FQUIT: 

0 - Normal return. Everything is OK. 

12 - An error has occurred. 


REGISTER CONTENTS ON ENTRY: 

Register 8 - Address of INMCCOM 

Register 13 - Save area address 
Register 14 - Return address 
Register 15 - Entry point address 
Other - Unpredictable 


REGISTER CONTENTS ON EXIT: 

EXIT NORMAL: 

Register 15 - Return code 
Other - Unchanged 
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INMR80 - Read Asis Routine 


STEP 01 


INflRM 

c> 

INMR80 


INMR80 reads varying length records from 
the input data set and writes them to the 
terminal* another sequential data set* or 
a member of a partitioned data set. 


ZNMCCON 


.MODIDPTR 


IHADCB 

DCBOFOPN 

INMRCOM 


.INPDCBP OUTDCBP 
lOUTDDN 



initialize for processing. 


Perform the setup for the 
copy operation. Issue an 
OPEN for the output data set 
and issue a CLOSE and OPEN 
for the input data set. This 
is necessary to re-position 
the input file at the 
beginning. 


A. OPEN T HE OU TPUT DCB. 

\,-1/ OPEN 

((ODCBPTR)* OUTPUT), MF=(E, 
OPENLIST) 



MNMCCOM 


MODIDPTR 


MHADCB 


DCBEODA 

DCBDDNAM 

DCBSYNA 


MNMRCON 

Iinpioerr! 


B. CLOSE THE I NPUT DCB. 


<(IDCBPTR)), MF=(E, OPENLIST) 


C. REOPEN THE INPUT DCB. 

/I-1\- 


CCIDCBPTR), INPUT), MF=(E, 
OPENLIST) 


i 

03 Copy records from the input 

1 — 1 file to the output file. If 
the PREVIEW option was 
requested, write the records 
to the user's terminal. 

A. READ THE RECORD INTO THE BUFFER. 

/I-1\.- 

\i-./ GETTNP: 09 


INMRCOM 


IINPIOERR 


KINBUF 

y/ \ - 

IINBUFO 
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XNMR80 - Read Asia Routine 


STEP 05B 
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XNMR80 - Read Asis Routine STEP 06 


INMR8CPX 

XHADCB j-> 

DCBRECFM DCBBLKSI 
DCBLRECL 


06 


Set RECFM> LRECL, and 


BLKSXZE values if they are 
missing. (XNMR80PX is the 
output OCB OPEN exit 
routine.) 


A. RETURN TO OPEN. 


in 


-KIHADCB 


DCBRECFM 

DCBBLKSI 

DCBLRECL 


1 -1 

07 

EOFADDR is the input dataset 
end-of-file exit routine. 

Set the EOF bit on and 
return to the access method. 


A. RETURN TO THE GET INSTRUCTION 



|\ / 


ZNNRE6S 

Iri 


INPSYNAD 


08 


Use the system SYNADAF and 
SYNADRLS macros to build the 
standard message then set 
the INPIOERR flag and return 
to the access method. 
(INPSYNAD is the input data 
set I/O error exit routine.) 


A. GENERATE THE ERROR MESSAGE• 
/ 

\ 


SYNADAF 


ACSMETH=QSAM 


B. FREE T HE ME SSAGE STORAGE AREA* 


SYNADRLS 


C. RETURN TO THE READ INSTRUCTION. 


h 


\ / 


J\INMRCOM 
V 


INPIOERR 
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XHADCB 


DCBLRECL 
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INMXASYS - MODULE DESCRIPTION 


DESCRIPTIVE NAME: Output File Allocation Routine 
FUNCTION: 

INMXASYS initializes the output file for the 
TRANSMIT command. Normally this will be a JES 
SYSOUT file, but it may be a data set or 
pre-allocated file specified by the user. 

ENTRY POINT: INMXASYS 

PURPOSE; See FUNCTION 

LINKAGE: PLS CALL 

CALLERS: INMXM 

INPUT: 

All input is provided via the common parameter 
INMXCCOM. The following fields are used: 

OUTDSDD (output data set or DD name) 

BEST, NODE (output node and userid) 

ODCBPTR (address of output DCB) 

OUTPUT: 

OPENed output DCB pointed by ODCBPTR 
RETURN CODE (in RC field of INMCCOM) 

EXIT NORMAL: BR 14 Return to caller 

EXTERNAL REFERENCES: 

ROUTINES: 

The following are invoked via PLS CALL: 

XNMCMSGI - Issue terminal messages 

DATA AREAS: 

INMCCOM - TRANSMIT communications area 
INMXPARM - Installation parameter CSECT 

CONTROL BLOCKS: 

DCB, 

IEFZB4D0, IEFZB4D2 

TABLES: NAMETBL - Translate table for verifying userid's 
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XNMXASYS - MODULE OPERATION 


XNMXASYS allocates and opens the output file for XNMXM. 
The allocation may be done in one of three ways: 

1* Allocate the file to a DSNAME specified by the user. The 
first attempt is to allocate the file as SHR. If this 
fails* an attempt is made to create a new data set. 

2. Allocate the output data set to a DDNAME specified by 
the user. In this case* no allocation is done. 

3. Allocate sysout file. The file is allocated specifying 
the "BEST" parameter to specify the correct node and the 
writer name for TSO userid routing. 

After allocating the output file* the DCS for the 
output file is opened and verified. 
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INMXASYS - DIAGNOSTIC AIDS 


ENTRY POINT NAME: INMXASYS 


MESSAGES: 

INMX201I TRANSMISSION FOR node.userid 
UNSUCCESSFUL 

INMX202I NODE NAME xx NOT DEFINED TO JES 
INMX203I JES OUTPUT FILE ALLOCATION ERROR 
INMX2Q4I JES OUTPUT FILE OPEN FAILURE 
INMX206I TRANSMIT COMMAND TERMINATED. OUTPUT 
DDNAME OPEN FAILED. 

INMX208I TRANSMIT COMMAND TERMINATED. OUTPUT 
DATASET ALLOCATION FAILED. DSN=dsname 
INMX209I TRANSMIT COMMAND TERMINATED. OUTPUT 
DATASET dsname IS NOT A SEQUENTIAL 
DATASET 

INMX210I TRANSMIT COMMAND TERMINATED. OPEN 
FAILED FOR OUTPUT DATASET. 


ABEND CODES: 

OAF Reason code 203: JES output allocation 
error 

OAF Reason code 204: JES output file open 
failure 

OAF Reason code 210: Output data set open 
failure 


WAIT STATE CODES: None 


RETURN CODES: 

EXIT NORMAL: 

Return code set in the variable FQUIT in 
the common parameter structure INMCCOM. 

0 - Everything is normal. 

12 - An error has occurred. 


REGISTER CONTENTS ON ENTRY: 

Register 8 -Address of INMCCOM 
Register 13 - Save area address 
Register 14 - Return address 
Register IS - Entry point address 
Other - Unpredictable 


REGISTER CONTENTS ON EXIT: 

EXIT NORMAL: 

Register IS - Always zero 
Other - Unchanged 
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XNMXASYS - Output File Allocation Routine 


STEP 01 


INMXM - 

£ IMMXASYS initializes the output file for 
\ the TRANSMIT command. Normally this will 
> be a JES SYSOUT file* but it may be a data 
/ set or pre-allocaied file specified by the 
YS user. 


INMCCOM 


KQDIDPTR 


INMXC0M 


XEFZB4D0 
S99RBPTR S99RB 
XNMXCOM 

OUTDSDO OUTDSNL j 

XEFZB4D2 

DALDSNAM DALSTATSr 
DALRTDDN DALRTORG| 

XEFZB4D0 


Perform initialization of 
the output file based on the 
user's specification of 
OUTDATASET> OUTDSNAME* or 
use the default of a JES 
SYSOUT file. 


Allocate the TRANSMIT 
command output file to a 
data set specified via the 
OUTDATASET or OUTDSNAME 
keyword. Xssue an OPEN for 
the data set. 


A. ALLOCATE THE OUTPUT DSNAME WITH 
DISP=S HR. 

\i-1/| DYNALLOC 



\INMCC0M 

ImodidptrI 


J \IEFZB4D0 

l / \ - 

S99RBPTR 

S99RBPND 

S99RB 

S99TXTPP 

S99TUP 

S99TUPND 

S99TUKEY 

S99TUNUM 

S99TULNG 

S99TUPAR 

j \XNMREGS 

i/|- 

R1 


S99TULN6 


XNMREGS 


XEFZB4D0 

S99RBPTR S99RB 
S99ERROR 

XEFZB4D0 

|S99TULNG ~" 


B. ALLOCATE THE OUTPUT DSNAME WITH 
DISPsN EW. 

\«-./I DYNALLOC 


KXEFZB4D0 

l/f- 

S99RBPTR 

S99RBPND 

S99RB 

S99TXTPP 

S99TUP 

S99TUPND 

S99TUKEY 

S99TUNUM 

S99TULNG 

S99TUPAR 


XEFZB4D2 

DALDSNAM DALSTATS 
DALNDISP DALTRK 
DALPRIME DALSECNO 
DALRTDDN DALRT0R6 


J \XNNREGS 


XNMXCOM 

OUTDSDD OUTDSNL 
SIZE 
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ZNMXASYS - Output File Allocation Routine 


STEP 02C 


INMXCOM 



C. ISSUE MESSAGE IJWX208 IF THE ALLOCATION 
FAILED* 

/I-1\,- 

\,-./I IIWCMSGI 


D. ISSUE MESSAGE INMX209 IF OUTPUT DATA SET 
IS NOT SEQUENTIAL. 


INMCMSGI 


MNMCCOM 


MSG# 

MSGFLAGS 

STRNGMSG 

ALLOCMSG 

FRC12 

RC 

MSG99PTR 

MSGRC 

MSGSTRL 

MSGSTRP 



UR2), OUTPUT), MF=(E, 
OPENLIST) 


MHADCB 


IDCBDDNAMI 


XHADCB 


IDCBOFOPN 


F. ISSUE MESSAGE INMX210 IF DSNAME OPEN 
FAILED. 


\|-1/ 


INMCMSGI 


G. CREATE A DUMP OF THE ERROR 




■MNMCCOM 

lA- 

MSG# 

MSGFLAGS 

PLAINMSG 

FRC12 

FABEND 

RC 

JMNMREGS 

,/f |- 

R15 


X'OAFS , , SYSTEM 
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XNMXASYS - Output File Allocation Routine 


STEP 03 


XNMXCOM 
FOUTDDN OUTDSNL 
XNMXCOM 


.ODCBPTR OUTOSOD 


XHADCB 

Idcbofopn 


XEFZB4D0 
S99RBPTR S99RB 
XNMXCOM 


TUID 

TUIDL f 

TNODE 

TNODEL 


XNMXPRMD 


PARMLIM 


XEFZB4D2 


DALSYSOU DALOUTLM 
DALRTDON OALSUSER 
DALUSRIO 


XEFZB4D0 


| S99TULNG 

XEFZB4D0 
S99RBPTR S99RB 
XEFZB4D2 


Initialize the TRANSMIT 
command output files 
specified via OUTDDNAME or 
OUTFXLE. issues OPEN for the 
specified DONAME. 


A. OPEN THE OUTPUT FILE. 



UR2), OUTPUT), MF=IE, 
OPENLIST) 


B. ISSUE MESSAGE IWK206 IF THE OPEN 
FAILED. 

/I J\i 

\l-1/| INMCMSGI 


Initialize the TRANSMIT 
command output files 
defaulted to the normal JES 
SYSOUT file. Allocate the 
file specifying a 
destination of the target 
node name and an external 
writer name of the target 
userid. 


A. IF OUTLIM FITS IN THREE BYTES THEN 
ALLOCATE THE FILE WITH DALOUTLM AND 
USERID. 


DYNALLOC 



\XNMRE6S 

/\ -1 

R2 

\XHADCB 


DCBDDNAM 



KXEFZB4D0 

_ * _ 


S99RBPTR 

S99RBPND 

S99RB 

S99TXTPP 

S99TUP 

S99TUPND 

S99TUKEY 

S99TUNUH 

S99TULNG 

S99TUPAR 


MNMRE68 


R1 
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INMXASYS - Output File Allocation Routine 


XNMREGS 


R15 


IEFZB4D0 


S99RBPTR S99RB 
S99ERR0R S99INFO 


IEFZB4D2 

DALUSRID 

ZNMXPRMD 

PARMLIM 

IEFZB4D0 

S99TULNG 

IEFZB4D2 



DALSYSOU 

DALSPGNM 

DALOUTLM 

DALRTDDN 

DALSUSER 


XNMXCOM 

TUID 

TUIDL r 

TNODE 

TNODEL 


IEFZB4D0 

S99RBPTR S99RB 

IEFZB4D2 

DALSYSOU DALSPGNMr 
DALRTDDN DALSUSER 

IEFZB4D0 

S99TULMG f 

XNMXCOM 

TUID TUIDL r 

TNODE TNODEL 

INMRE6S 

[ris ~r 


C. IF OUTLIM FITS IN THREE BYTES THEN 
ALLOCATE THE FILE NITH DALOUTLM AND 
EXTERNAL WRITER. 


DYNALLOC 


D. ELSE ALLOCATE THE FILE NITH EXTERNAL 
WRITER._^ 

\i-1/| DYNALLOC 



E. ISSUE MESSAGE INMX201 IF THE ALLOCATION 
FAILED. 

/I-K.- 

\i -i/I INMCMSGI 


STEP 04C 
—■KIEFZB4D0 


S99RBPTR 
S99RBPND 
S99RB 
S99TXTPP 
S99TUP 
S99TUPND 
S99TUKEY 
S99TUNUM 
S99TULNG 
S99TUPAR 

MNMRE6S 

Vi 


JMEFZB4D0 

i 7 |- 

S99RBPTR 

S99RBPND 

S99RB 

S99TXTPP 

S99TUP 

S99TUPND 

S99TUKEY 

S99TUNUM 

S99TULNG 

S99TUPAR 

J \XNMREGS 

i/i- 

R1 

JMNMCCOM 

lS\ - 

MSGG 

MSGFLAGS 

STRNGMSG 

MSGRC 

MSGSTRL 

MSGSTRP 
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XNMXASYS - Output File Allocation Routine 


STEP 04F 


XNMCCOM 


KXNMCCOM 



<<R2), OUTPUT), MF=(E» 
OPENLIST) 


\XHADCB 

IdcbddnamI 


IHADCB 


IDCBOFOPN 


J. ISSUE MESSAGE INMX201 IF THE OPEN 
FAILED. 

/I-1\- 

\.-1/| INMCMSGI 


MNMCCOM 

i/|- 

MSG# 

MSGFLAGS 
PLAINMSG 


K. ISSUE MESSAGE INMX204 TO INDICATE AN 
OPEN E RROR. 

\i-./I INMCMSGI 


MNMCCOM 

i/i-- 

MSG# 

MSGFLAGS 

PLAINMSG 

FABEND 

RC 
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XNMXASYS - Output Pile Allocation Routine 


STEP 04L 
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XNMXASYS - Output File Allocation Routine STEP 04$ 



2-236 


Interactive Data Transmission Facility Logic 
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INMXCOOE - MODULE DESCRIPTION 


DESCRIPTIVE name: Encryption Invocation Routine 
FUNCTION: 

INMXCODE controls the encryption of files that 
are to be transmitted. INMXCODE builds control 
cards* allocates required files* and invokes the 
cryptographic extensions of the Access Method 
Services REPRO command. 

ENTRY POINT: INMXCODE 

PURPOSE: See FUNCTION 

LINKAGE: PLS CALL 

CALLERS: IMXM 

INPUT: 

All input is provided via the TRANSMIT communications 
area INMXCOM. The following fields are used: 

IDCBPTR CDCB containing input DDNAME for AMS)* 

SPACE (size estimate for AMS output)* 

OUTPUT: 

DDNAME of AMS output file in DCB pointed to by 
IDCBPTR 

EXIT NORMAL: BR 14 Return to caller 

EXTERNAL REFERENCES: 

ROUTINES: 

The following are invoked via PLS CALL: 

INMCMSGI - Message issuing routine 

IDCAMS - Encryption routine 

INMXZ - TRANSMIT exit-invocation routine 

DATA AREAS: 

INMXCOM - TRANSMIT command communications 
area 

INMCCOM - Common parameter structure 
INMXPRMD - Installation options block 

CONTROL BLOCKS: 

DCB* 

IEFZB4D0* IEFZB4D2 

TABLES: 

CODESTMT - AMS ENCODE statement 

CQPYDDhM - Utility DDNAME substitution table 

COPYPLST - 2-parameter list for AMS 
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XNMXCODE - MODULE OPERATION 


INMXCODE performs the following functions: 

(1) Pronpts the user to supply encryption 
control parameters. 

(2) Allocates files for messages and control 
statements. 

<3) Invokes the installation encryption exit 
and alters the control text or specifies 
that the encryption function be bypassed. 

(4) Builds an Access Method Services REPRO 
statement from the control text provided 
by the user or exit. 

(5) Invokes Access Method Services to perform 
encryption. 

(6) Deletes message and control card files. 
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XNMXCODE - DIAGNOSTIC AIDS 


ENTRY POINT NAME: XNMXCODE 


MESSAGES: 

XNMX050I TRANSMIT COMMAND TERMINATED. FAILURE 
DURING ENCIPHER PROCESSING 
INMX051I IDCAMS RETURN CODE nn 
INMX052I ALLOCATION ERROR BUILDING xxx FILE. 
INMX100I ENTER ENCIPHER OPTIONS FOR AMS REPRO 
COMMAND 

XNMX101X VALID OPTIONS INCLUDE: EXTERNALKEYNAME> 
INTERNALKEYNAME, PRIVATEKEY> CIPHERUNIT, 
DATAKEYFILE, DATAKEYVALUE, SHIPKEYNAMES, 
STOREDATAKEY > STOREKEYNAME> USERDATA 
INMX105I TRANSMIT COMMAND TERMINATED. UNABLE TO 
PROMPT FOR CONTROL PARAMETERS 
INMX106I PROMPTING NAS INHIBITED. 

INMX107I RETURN CODE nn FROM IKJEFF02• 


ABEND CODES: 

OAF Reason code: 52 Error allocating the 
terminal message file 


WAIT STATE CODES: None 


RETURN CODES: 

EXIT NORMAL: 

Return code set in the variable FRUIT of 
the communications area INMCCOM. 

0 - Everything is normal. 

12 - An error has occurred. 


REGISTER CONTENTS ON ENTRY: 

Register 8 - Address of INMCCOM 

Register 13 - Save area address 
Register 14 - Return address 
Register 15 - Entry point address 
Other - Unpredictable 


REGISTER CONTENTS ON EXIT: 

EXIT NORMAL: 

Register 15 - Always zero 
Other - Unchanged 
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STEP 01 


INMXM 

b 


XNMXCODE 


XEFZB4D0 


S99RBPTR S99RB 


XEFZB4D2 

DALBLKLN DALPRIME 
DALSECND DALUNIT 
DALRTDDN 



XEFZB4D0 


|S99TULNG 

XNMXPRMD 
PARMVIOL PARMVIO 

XNMRE6S 

Ir15 



J\ 

1/ 


J\ 

1/ 


XEFZB4D0 j-> 

[s99RB I 


XNMXCOM r-> 


UTOUT 

♦ 

• 


* 

XEFZB4D0 

-J 

S99RBPTR S99RB 


XEFZB4D2 


DALTERM DALRTDDN | 

1 

XEFZB4D0 


S99TULNG j- 


i-1 


INMXCODE controls the encryption of files 
that are to be transmitted. INMXCODE 
builds control cards> allocates required 
files 9 and invokes the cryptographic 
extensions of the Access Method Services 
REPRO command. 



01 Allocate two temporary files 
1 — 1 to be used by the XDCAMS 

utility: a control card file 
and a message file. Allocate 
the message file either to 
the users terminal or to a 
SYSOUT file. 

A. ALLOCATE THE 

/'-K 

\|-1/ 



CONTROL CARD FILE. 

DYNALLOC 


J\XEFZB4D0 


S99RBPTR 

S99RBPND 

S99RB 

S99TXTPP 

S99TUP 

S99TDPND 

S99TUKEY 

S99TUNUM 

S99TULN6 

S99TUPAR 


UMNMRE6S 


H/ 


R1 


■KINMCCOM 


MSG* 

MSGFLAGS 
PLAINMSG 
MSGRC 


KXNMCCOM 
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XNMXCODE - Encryption invocation Routine 


STEP 01E 
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INMXCODE - Encryption Invocation Routine 


STEP Oil 
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INMXCODE - Encryption Invocation Routine 


STEP 02B 


XNNREGS 


XNMREGS 


XNMCCON 


B. ISSUE MESSAGE INMX106 IF THE PROMPTING 
IS NOT ALLOWED. 

/'-'\.- 

\i- 1 / INMCMSGI 


C. ISSUE MESSAGE IKMX107 FOR ANY OTHER 
PROMPT ERRORS. 


INMCMSGI 


-> D. IF THERE ARE NO ERRORS, INVOKE INMXZ03. 


MNMCCOM 

-1 

MSG# 

MSGFLAGS 

PLAINMSG 

FRC12 

RC 

MNMCCOM 



XNMCCOM 


XNMXCOM 


IFNCCIPHR 


XHADCB 


DCBDDNAM 


03 Build the REPRO control 
— 1 statement for XDCAMS. Build 
the statement with a base 
section of "REPRO 
INFILE(infile) 

OUTFX LE( OUtfile ) ENCIPHER(" 
and append the encipher 
options specified by the 
user or the installation 
exit routine. 


A. OPEN T HE CO NTROL STATEMENT FILE. 

\(-1/ OPEN 

1SYSIN, OUTPUT), MF=CE, 
OPENLIST) 


B. WRITE THE REPRO ENCIPHER OPTION. 
\.-i/l PUT 


SYSIN, PUTBUFFR 
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XNMXCODE - Encryption Invocation Routine 


STEP 03C 


C. CLOSE THE CONTROL CARD FILE. 


ISYSIN, MF=<E»OPENLIST) 


0 Build the utility parameter 
list and link to IDCAMS. 

A. CALL ACCESS METHOD SERVICE TO ENCRYPT. 


JMNMREGS 

l'| -1 

R1 


|EP=IDCAMS 


XNMREGS 


XNMXCOM 


.AMSDDNAM 




XEFZB4D0 

S99RBPTR S99RB 

XEFZB4D2 


DUNDDNAM 


XEFZB4D0 


S99VRBUN S99TULNS 


i 



D. RETURN TO THE CALLER. 


KIHADCB 


DCBDDNAM 


MNMCCOM 



MEFZB4D0 


S99RBPTR 

S99RBPND 

S99RB 

S99VERB 

S99TXTPP 

S99TUP 

S99TUPNB 

S99TUKEY 

S99TUNUM 

S99TULN6 

S99TUPAR 


MNMREGS 


MNMCCOM 


■71 
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INMXI - NODULE DESCRIPTION 


DESCRIPTIVE NAME: input Allocate and DSCB read 
FUNCTION: 

INMXI initializes the input data set for the 
TRANSMIT command* INMXI then determines the 
DCB attributes of the file and the size of the 
file. 

ENTRY POINT: INMXI 
PURPOSE: See FUNCTION 
LINKAGE: PLS CALL 
CALLERS: INMXM 
INPUT: 

All input is provided via the TRANSMIT command 
communications area INMXCOM. The following fields 
are used: 

FDSN (an external data set will be used) 

FDASTAR (terminal input will be sent) 

FSEQ (a single member is sent as sequential) 

DSN (name of the data set to allocate) 

MEMLPTR (list of members) 

OUTPUT: Allocated input data set and DSCB. 

EXIT NORMAL: BR 14 Return to caller 

EXTERNAL REFERENCES: 

ROUTINES: 

The following are invoked via PLS CALL: 

INMCMSGI - Message issuing routine 

DATA AREAS: 

INMXCOM - TRANSMIT command communications 
area 

INMMCOM - Common parameter structure 

CONTROL BLOCKS: 

DCB, DSCB1, 

IEFZB4D0, IEFZB4D2 

TABLES: 

CAMLIST - Parameter list for OBTAIN 
DSCBAREA - Work area for OBTAIN response 
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XNMXI - NODULE OPERATION 


XNMXI allocates the input data set to be 
transmitted* This may be either an entire 
data set or a single member of a partitioned 
data set* If an external data set is to be 
transmitted* XNMXI reads the DSCB* If no 
data set is to be transmitted (input is from 
the terminal)* INMXI builds a dummy DSCB* The 
last 20 bytes of the DSCB is overlayed with 
device type information* 
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XNMXX - DXAGNOSTXC AIDS 


ENTRY POXNT NAME: INMXI 


MESSAGES: 

INMX060I TRANSMIT COMMAND TERMINATED. INPUT 
DATASET UNUSABLE. 

INMX061I ALLOCATION FAILED FOR DATASET dsname 
INMX062I OPEN FAILED FOR DATASET dsname 
INMX063I OPEN FAILED FOR DDNAME ddname 
INMX064I DATASET dsname NOT ON VOLUME AS INDICATED 
IN THE CATALOG 

INMXG65I REQUIRED VOLUME WWW NOT MOUNTED 
INMX066I I/O ERROR IN VTOC OF VOLUME www 
INMX067I OBTAIN RETURN CODE: rtn FOR DATASET dsname 
INMX068I DATASETS WITH KEYS ARE NOT SUPPORTED 
INMX069I DATASET ORGANIZATION OF DATASET dsname 
IS NOT SUPPORTED. 


ABEND CODES: OAF Reason code: 67 Unusual OBTAIN error 


WAIT STATE CODES: None 


RETURN CODES: 

EXIT NORMAL: 

Return code set in the variable FQUIT of 
the communications area INMXCOM 

0 - Everything is normal. 

12 - An error has occurred. 


REGISTER CONTENTS ON ENTRY: 

Register 8 - Address of INMCCOM 

Register 13 - Save area address 
Register 14 - Return address 
Register 15 - Entry point address 
Other - Unpredictable 


REGISTER CONTENTS ON EXXT: 

EXIT NORMAL: 

Register 15 - Always zero 
Other - Unchanged 
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XNMXX - Input Allocate and DSCB read 


STEP 01 


INMXM -;- 

INMXI initializes the input data set for 
I “\ the TRANSMIT command. INMXI then 
I > determines the DCB attributes of the file 
”"I / and the size of the file. 

INMXI 


XNMXCOM 

[fdastar 


Set the characteristics of 
terminal input data sets. 


KINMXCOM 

i/f- 

DSORG 

RECFM 

LRECL 

BLKSZ 

SIZE 


XNMCCOM 


FQUIT 


XNMXCOM 


FDSN 

FMEM 

FSEQ 



XEFZB4D0 


S99RBPTR S99RB 


XNMXCOM 


OSNL DSN 
MEMLPTR 


XEFZB4D0 


S99TULNG S99TULEN 
S99TUPRM 


XEFZB4D2 


I DALDSNAM DALMEMBR 
DALSTATS DALRTDDN 
DALRTORG DALRTVOL 

XEFZB4D0 

S99RBPTR S99RB 

XEFZB4D2 


DALDSNAM DALSTATS 
DALRTDDN DALRTORG 
DALRTVOL 


XEFZB4D0 


S99TULNG 


XNMXCOM 


DSNL DSN 



9 


02 Allocate the input data set. 

— 1 Use different forms of 
allocate invocations 
depending on whether the 
data set data set is 
sequential# partitioned# or 
a member of a partitioned 
data set. 

A. ALLOCATE THE INPUT PDS MEMBER. 

/*-*\,- 

\i-i/l DYNALLOC 


KIEFZB4D0 

i/|- 

S99RBPTR 

S99RBPND 

S99RB 

S99TXTPP 

S99TUP 

S99TUPND 

S99TUKEY 

S99TUNUM 

S99TULNG 

S99TUPAR 


MNMREGS 


R1 
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INMXX - Input Allocate and DSCB read 


STEP 02C 


INMREGS 



C. ISSUE MESSAGE INMX060 IF THE ALLOCATION 
FAILED. 


\«-1/ 


INMCMSGI 


D. ISSUE MESSAGE INMX061 TO SPECIFY THE 
DSNAME._^ 

\.-1/| INMCMSGI 


E. ISSUE MESSAGE INMX069 IF THE DSORG IS 
INVALID. 


INMCMSGI 


03 Collect information about 
1 — 1 the size of the data set to 
be transmitted* Obtain this 
information from the format 
1 DSCB for the data set and 
obtain device information 
with the DEVTYPE macro. 

A. READ THE DSCB FOR THE INPUT DATA SET 



KINMCCOM 

l/i- 

MSGS 

MSGFLAGS 

PLAINMSG 

MSGRC 


KINMCCOM 

l/|- 

MSGS 

MSGFLAGS 

STRNGMSG 

ALLOCMSG 

FRC12 

RC 

MSG99PTR 

MSGSTRL 

MSGSTRP 

KXNMXCOM 


STDDDNAM 


KXHADCB 


IDCBDDNAMI 


KXNMCCOM 

\ / - 

MSGS 

MSGFLAGS 

STRNGMSG 

FRC12 

RC 

MSGSTRL 

MSGSTRP 


KCAMLIST 

l/l- 

CAMLFLAG 

CAMLDSN 

CAMLVOL 

CAMLWORK 
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INMXZ - Input Allocate and DSCB read 


STEP 03B 


XNMREGS 


INMREGS 


XNMXCOM 


XECSDSL1 



B. ISSUE MESSAGE INMX065 IF THE VOLUME IS 
NOT MOUNTED. 

/I-1\,- 

\i-1/| INMCMSGI 


C. LOCATE THE DSN 

/«-Kr- 

\|- 1 / 


LOCATE 


LOCATLST 


D. READ DSCB 

/■-K 

\|-1/ 



E. ISSUE MESSAGE INMX064 IF THE DATA SET IS 
NOT ON VOLUME. 


INMCMSGI 



F. ISSUE MESSAGE INMX068 IF THE INPUT DATA 
SET HAS KEYS. 

/I-k - 

\i-i/l INMCMSGI 


KXNMCCOM 

i/|- 

MSG# 

MSGFLAGS 

STRNGMSG 

FRC12 

RC 

MSGSTRL 

MSGSTRP 




MSG# 

MSGFLAGS 

STRNGMSG 

FRC12 

RC 

MSGSTRL 

MSGSTRP 


KINMCCOM 

i/i- 

MSG# 

MSGFLAGS 

PLAINMSG 

FRC12 

RC 


CAMLXST 


IDEVTYPEA 


G. GET TH E DEV ICE TYPE INF03ZA81281 
\i-i/l DEVTYPE 


KXNMREGS 

i 7 |- 

RO 


PACKEDNO, (RO) 
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XNMXI - Input Allocate and DSCB read 


STEP 03H 
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INMXLOG - MODULE DESCRIPTION 


DESCRIPTIVE NAME: Log Allocate and Open routine 
FUNCTION: 

INMXLOG performs all of the logging for the 
TRANSMIT command. It scans the logging request 
queue and writes entries into as many log data 
sets as required. INMXLOG writes only one log 
entry to each data set. 

ENTRY POINT: INMXLOG 

PURPOSE: See FUNCTION 

LINKAGE: PLS CALL 

CALLERS: INMXM - CALL INMXLOG 

INPUT: 

All input is provided via the TRANSMIT 
communications area INMXCOM. The following 
fields are used: 

NICKNAME, UID, FPRIVATE 

OUTPUT: OPENed Log DCB, pointed to by LOGPTR in INMXCOM. 
EXIT NORMAL: BR 14 Return to caller 
EXTERNAL REFERENCES: 

ROUTINES: 

The following are invoked via PLS CALL: 

INMMSGI - Message issuing routine 

DATA AREAS: 

INMXCOM - TRANSMIT command communication 
area 

INMMCOM - Common parameter structure 

CONTROL BLOCKS: 

DCB, 

IEFZB4D0, IEFZB4D2 

TABLES: LOGMSG - Log header record 
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XNMXLOG - MODULE OPERATION 


INMXLOG loops through the log request list and 
writes an entry to each indicated log data set. 
Each entry contains an addressee line for 
each addressee that is logged to that data set. 
The allocation and deallocation of the log files 
is handled through the dynamic allocation SVC 99. 
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INMXLOG - DIAGNOSTIC AIDS 


ENTRY POINT NAME: XNMXLOG 
MESSAGES: 

INMX073I LOG PROCESS FAILED FOR DATASET 'dsnama' 
INMX074I OPEN FOR THE DATASET FAILED* 

ABEND CODES: None 

WAIT STATE CODES: None 

RETURN CODES: 

EXIT NORMAL: 

Return code in register 15 


REGISTER CONTENTS ON ENTRY: 

Register 1 - Address of INMXCOM 

Register 13 - Save area address 
Register 14 - Return address 
Register 15 - Entry point address 
Other - Unpredictable 


REGISTER CONTENTS ON EXIT: 

EXIT NORMAL: 

Register 15 - Always zero 
Other - Unchanged 
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INMXLOG - Log Allocate and Open routine 


STEP 01 


INMXM - CALL INMXLOG 


o 

INMXLOG 


INMXLOG performs all of the logging for 
the TRANSMIT command. It scans the logging 
request queue and writes entries into as 
many log data sets as required. INMXLOG 
writes only one log entry to each data 
set. 


IHAPSA 

PSAT0L0 

IKJTCB 


ITCBJSCB 


IEZJSCB 


IJSCBPSCB 


IKJPSCB 


| PSCBUPT 

INMCCOM 


Loop through the LSTK list. 
The LSTK list is a list of 
lognames into which a log 
entry should be made. Each 
of the LSTK entries has 
chained from it one or more 
LQE entries identifying an 
addressee that requires an 
entry for that logname. 


XNMXCOM 

LOGSELL LOGSEL v 
LSTPTRO 

XKJUPT 

UPTPREFX UPTPREFLj 

INMXSTK 


ILSTNAME 


XKJCPPL 


CPPLUPT CPPLPSCB 
CPPLECT 


Use SVC 99 to allocate the 
selected log data set and 
then issue an OPEN for the 
data set. 


|EP=IKJDAIR 


j \IKJDAPL 


DAPLUPT 
DAPLECT 
DAPLECB 
DAPLPSCB 
DAPLDAPB 

MKJDAP04 


EHBTSSR 


DA04CD 

DAC4PDSN 

KINMREGS 

'Vi I 
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DALDSNAM DALSTATS 
DALNDISP DALTRK 
DALPRIME DALSECND 
DALRTDDN 


IEFZB4D0 


S99TULN6 
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INMXLOG - Log Allocate and Open routine 

:EFZB4D0 r -> 

- J - K 


IEFZB4D0 

S99RB 

INMREGS 


.R15 


ZHADCB 

IDCBOFOPN 


IHADCB 

DCBOFOPN 

INMXCOM 




LOGMSG 


D. ISSUE MESSAGE INMX073 IF THE ALLOCATION 
FAILED. 

/I-1\.- 

\i-1/| INMCMSGI 


OPEN THE LOG DATA SET. 



(LOGDCB, OUTPUT), MF=(E, 
OPENLIST) 


F. ISSUE MESSAGE INMX074 IF THE LOG DATA 
SET OPEN FAILED. 


INMCMSGI 



Build and write the first 
several log records, 
including the separator 
line, the TRANSMIT entry 
containing the dsname and 
time stamp, and one or more 
lines containing addressee 
entries. 


A. WRITE THE SEPARATOR RECORD 


PUT 


LOGDCB, ASTERISK 


B. WRITE THE TRANSMIT HEADER WITH THE DATA 
SET NAME AND TIME 


PUT 


LOGDCB , LOGMSG 


C. WRITE THE LOG ENTRY ADDRESSEE RECORD 
/I-1\.- 

\|-1/ PUT 

LOGDCB, LOGTO 



STEP 02D 

—MNMCCOM 

“Vr- 

MSG# 
MSGFLAGS 
STRNGMSG 
ALLOCMSG 
FRC04 
RC 

MSG99PTR 
MSGRC 
MSGSTRL 
MSGSTRP 


MHADCB 
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XNMXLOG - Log Allocate and Open routine STEP 04 
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1NMXL06 - Log Allocate and Open routine 


STEP 06B 


1EFZB4D0 

S99RBPTR S99RB 

XEFZB4D2 


B. FREE THE LOG DATA SET. 




C. RETURN TO THE CALLER. 


tn 


MEFZB4D0 

/\ - 

S99RBPTR 
S99RBPND 
S99RB 
S99VERB 
S99TXTPP 
S99TUP 
S99TUPND 
S99TUKEY 
S99TUHUM 
S99TULNG 
S99TUPAR 


\ZNMREGS 


\INMCCOM 


MODIDPTR 
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XNMXM - MODULE DESCRIPTION 


DESCRIPTIVE NAME: TRANSMIT Command Main Routine 
FUNCTION: 

INMXM is the main module for the TSO TRANSMIT 
command. Relatively little work is done in 
this module other than overall initialization 
and directing invocations of other modules. 

ENTRY POINT: INMXM 

PURPOSE: See FUNCTION 

LINKAGE: ATTACH 

CALLERS: TSO terminal monitor program (TOP) 

INPUT: Standard TSO entry parameters* 

OUTPUT: 

File written to JES SYSOUT file for 
transmission* 

EXIT NORMAL: BR 14 Return to caller 

EXTERNAL REFERENCES: 

ROUTINES: 

The following are invoked via PLS CALL: 

INMCMSGI - Message issuing routine 

INMCR - TRANSMIT and RECEIVE ESTAE routine 

INMCTIME - Convert GMT to local time routine 

INMXASYS - Output file allocation routine 

INMXCODE - Encryption invocation routine 

INMXI - Input allocate and DSCB read routine 

INMXLOG - Log allocate and open routine 

INMXPDS - PDS unload routine 

INMXQ - TRANSMIT nickname resolution routine 

INMXTIN * Terminal read routine 

INMXUINP - TRANSMIT command scan routine 

INMXXMIT - Sequential file transmit routine 

INMXZ - TRANSMIT exit-invocation routine 

The following are invoked via CALLTSSR: 

IKJEFF02 - TSO message issuing routine 

DArA AREAS: 

INMXCOM - TRANSMIT communications area 
INMMCOM - Common parameter structure 
INMXPRMD - Installation options block 

CONTROL BLOCKS: 

CVT> DCB, SKCA> PSA, ASCB, TCB, JSSIB, 

JSCB> IECSDSL1 y IKJEFFMT, 

IEFZB4D0, IEFZB4D2, 

CPPL, UPT, IOPL 

TABLES: DSCBAREA - space for reading DSCB with OBTAIN 
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XNMXM - MODULE OPERATION 


XNMXM controls transmission of data via the NJE 
network. This module initializes INMXCOM 
which will be passed among subroutines* Then it 
links to a number of subroutines to perform 
input parsing* allocation of input and output files* 
log processing* terminal prompting* pds unload* and 
data transmission. XNMXM then performs termination 
and cleanup. 
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XNMXM - DIAGNOSTIC AIDS 


ENTRY POINT NAME: INMXM 


MESSAGES: 

INMX050I TRANSMIT COMMAND TERMINATED. FAILURE 
DURING ENCIPHER PROCESSING. 

INMX052I ALLOCATION ERROR BUILDING INPUT FILE 
INMX152I TRANSMIT FAILED. RECIPIENTS NODE ID 
NOT RECOGNIZED. 


ABEND CODES: None 


WAIT STATE CODES: None 


RETURN CODES: 

EXIT NORMAL: 

The command return code is in register 15. 

0 - Everything is normal. 

4 - Naming messages were issued. 

8 - At least one transmission was unsuccessful. 
12 - An error has occurred. 


REGISTER CONTENTS ON ENTRY: 

Register 1 - Address of command parameter list 

Register 13 - Save area address 

Register 14 - Return address 

Register 15 - Entry point address 

Other - Unpredictable 


REGISTER CONTENTS ON EXIT: 

EXIT NORMAL: 

Register 15 - Return code 
Other - Unchanged 
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XNMXM - TRANSMIT Command Main Routine 


STEP 01 


TSO terminal monitor program 
(TMP) I—I 


c> 

XNMXM 


XNMXM is the main module for the TSO 
TRANSMIT command. Relatively little work 
is done in this module other than overall 
initialization and directing invocations 
of other modules. 


XHAPSA 


XKJTCB 


XEZJSCB 


IJSCBPSCB 


INMXPRMD 


XNMXPARM PARMIBM 

XNMCCOM 


INMREGS 


IKJPSCB 


IPSCBUSER PSCBUSRL■ 


Perform initialization for 
INMXM* Initialize the 
INMXCOM and determine the 
invoking userid and network 
node name. Set up ESTAE 
coverage. 


A. ISSUE MESSAGE INMX152 IF INMXPARM IS 
MISSING OR IF INMXPARM IS THE IBM 
DEFAULTs_^ 

\»-1/| INMCMSGI 


MNMCCOM 

\/\ - 

COMPTR 

CPPLPTR 

MSGS 

MSGCSCT 

MSGFLAGS 

PLAINMSG 

FRC12 

RC 

MSGFLAGP 

MODIDPTR 

GUSERID 

MNMREGS 

\/\ - 

R0 R1 

R14 R15 

J \XNMXC0M 

l/|- 

UID 

UIDL 


INMXCOM 
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INMXM - TRANSMIT Command Main Routine 
INMXPRMD r- >1 


XEESMCA 


SMCAS1D 


XNMXCOM 


NODE 


XNMCCOM 


XHAASCB 


ASCBJBNI ASCBJBMS 


XNMXSTK 


NUSTK 

NSTK 

LSTK 

LQE 


XNMXPRMD 


PARM8NQD PARmPTR 
NODENAME 


XNMXCOM 


MEMLPTR 


IKJCPPL 


CPPLUPT CPPLECT 




STEP 01B 
—KINMXCOM 


XCOMID 

XCOMVER 

FLAGS 

IDCBPTR 

ODCBPTR 

NODE 

NODEL 

MEMLPTR 

MEMLPTR1 

MEM* 

PROLPTR 

PROLEND 

EPILPTR 

EPXLEND 

STDDDNAM 

PDSDDNAM 

AMSDDNAM 


IOPLUPT 

IOPLECT 

IOPLECB 


COMPTR 

MCOMID 

MCOMVER 

KCOMID 

KCOMVER 

GCOMID 

GCOMVER 

GUSERID 


i" i 
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INMXM - TRANSMIT Command Main Routine 


INMXCOM 


JESBUFFR 


ZNMXSTK 


NUSTK 

NSTK 

LSTK 

LQE 



INMRE6S 


R1 


INMXCOM 


NSTPTRO NUPTRO 
LSTPTR1 


INMXPRMD 

PARMLN PARMLNL 
PARMLS PARMLSL 


INMREGS 


RO 


INMXCOM 


.XDATEG 




D. CONVERT THE TIME VIA THE TIME MACRO TO 
THE CHARACTER FORMAT USED IN THE 
TRANSMISSION. INVOKE INMCTIME TO CONVERT 
GMT TO LOCAL TIME. 

E. GET TI ME AN D DATE FROM THE SYSTEM. 

\|- ]/ TIME 

DEC > ZONE=GMT 


F. CONVERT GMT TO LOCAL TIME. 


INMCTIME 


, XDATEG> XDATE 



STEP 01C 
— l \INMXCOM 


XPRMPTR 

OUTDSNL 

LOGSELL 

LOOSEL 

LOGDEFL 

LOGDEF 

NSTPTRO 

NSTPTR1 

NSTPTR2 

NUPTRO 

NUPTR1 

NUPTR2 

LSTPTRO 

LSTPTR1 

LSTPTR2 

JESBUFPT 

JESBUFEN 


MNMCCOM 


MSGCSCT 

MSGFLAGP 

CMDNAME 

CMDRETRY 

GFLAGS 


MNMXCOM 





INMCCOM 

Ifquit 


-> G. IF THERE ARE NO PREVIOUS ERRORS, PARSE 
THE INVOCATION AND ANALYZE. 

/'- l \ - 

\l-i/l INMXUINP 


INMCCOM 

Ifquit 


-> H. IF THERE ARE NO PREVIOUS ERRORS, RESOLVE 
NICKNAMES AND D-LISTS. 

\i-1/| INMXQ 


I. INVOKE THE STARTUP EXIT. 

/I-l\.- 

\i-i/l INMXZ 


INMCCOM 

Ifquit 


-> J. IF THERE ARE NO PREVIOUS ERRORS, 

ALLOCATE AND CHECK THE INPUT DATA SET. 

/I-1\|- 

\i-i/l INMXI 
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XNMXM - TRANSMIT Command Main Routine 


STEP 02 


XNMCCOM 



Determine if an IEBC0PY 
unload will be required to 
to transmit the data. 


XNMXCOM 



*\XNMXC0M 


SAVESTAR 

FIEBCOPY 


FDSN 

FMEM 

FSEQ 

DSORG 


XNMXCOM 


FOASTAR 


XNMXCOM 

FOASTAR FMS6 
FCOPYLST NUPTRO 

XNMCCOM 


XNMXSTK 


invoke XNMXTXN to read 
message input from the users 
terminal or a CLXST. 


A. PROMPT THE USER FOR DATA. 

\i- 1 / INMXTIN 


XNMXSTK 

NUNODEL NUNODE 
NUUIDL NUUID 


XNMXCOM 


Itinptr tinend 


MNMXCOM 

|/j-1 

TRECPTR 

TRECEND 


XNMXCOM 


FOASTAR NUPTRO 


XNMCCOM 


XNMXSTK 


Invoke INMXTIN to read data 
input from the user's 
terminal or a CLXST. Xf the 
data is to be enciphered , 
allocate a temporary file 
and copy the terminal input 
data to this temporary file 
for later encipher 
processing. 


XNMXSTK 


PROMPT ^THE USER FOR DATA. 


INMXTIN 


NUNODEL NUNODE 
NUUIDL NUUID 
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INMXM - TRANSMIT Command Main Routine 


STEP 04B 



2-268 Interactive Data Transmission Facility Logic LY28-1105-2 (c) Copyright IBM Corp* 1981 > 1986 






































"Contains Restricted Materials of IBM 1 
Licensed Materials - Property of IBM 


XNMXM - TRANSMIT Command Main Routine 


STEP 04G 


6. CLOSE THE STORAGE FILE. 

\|-1/ CLOSE 

(IDCB)> MF=(E, OPENLIST) 


INMXCOM 


IFIEBCOPY 


H. IF IEBCOPY WAS USED TO UNLOAD THE PDS. 
CALL THE IEBCOPY-INVOKING ROUTINE. 

/I-1\.- 

\i-./ INMXPDS 


KINMXCOM 

]/[- 

FDDN 

FDASTAR 


INMXCOM 


IFCIPHER NUPTRO 


I. IF ENCRYPTION REQUESTED, INVOKE ACCESS 
METHOD SERVICES REPRO TO ENCIPHER. 

/«- J \r- 

\i-«/ INMXCODE 


INMCCOM 


INMXCOM 


FOUTDSN FOUTDDN 
FNOTALL 



Loop through all addressees 
and perform a transmission 
to each* Invoke XNMXASYS to 
initialize the output file* 
and invoke XNMXXMXT to write 
the transmission to the 
output file* 


A. ALLOCATE THE OUTPUT FILE. 


INMXASYS 


.NUNODEL NUNODE 
iNUUIDL NUUID 

INMREGS 


B. IF OUTPUT FILE IS ALLOCATED 

SUCCESSFULLY, TRANSMIT THE DATA. 


INMXXMIT 



MNMXCOM 


FNOTIFY 

TUID 

TUIDL 

TNODE 

TNODEL 

PRMNAMES 

DRECCT 

MRECCT 


INMREGS 


INMXSTK 


NUCHAIN 


KINMXSTK 

i'i- 

INUFGOOD 


After all transmissions have 
been performed* invoke 
INMXLOG to perform all 
logging* invoke INMXZ to 
call the user termination 
exit INMXZ02* and lastly 
terminate the ESTAE 
coverage* 
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XN14XC0M 


FDSN 


XEFZB4D0 


S99RBPTR S99RB 


XNMXCOM 


DSNL DSN 


XEFZB4D2 


DUNDSNAM 


IEFZB4D0 


.S99VRBUN S99TULNG 


INMCCOM 


r 

FRC04 

FRC08 

i 

FRC12 

FRC16 

J 


F. RETURN TO THE TMP. 


MNMREGS 

/ [ris 
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XNMXMSG - MODULE DESCRIPTION 

DESCRIPTIVE NAME: TRANSMIT Command Message Module 
FUNCTION: 

Contains all the messages issued by the transmit 
command. 

PURPOSE: None 

LINKAGE: None 

CALLERS: None 

INPUT: None 

OUTPUT: None 

EXTERNAL REFERENCES: 

ROUTINES: None 
CONTROL BLOCKS: IKJTSMSG 
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XNMXMSG - DIAGNOSTIC AIDS 

MESSAGES: None 
ABEND CODES: None 
WAIT STATE CODES: None 
RETURN CODES: None 
REGISTER CONTENTS ON ENTRY 
REGISTER CONTENTS ON EXIT: 


Irrelevant 

Irrelevant 
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XNMXMSG - TRANSMIT Command Message Module 



!- 

c> 

XNMXMSG 


Contains all the messages issued by the 
transmit command. 



_1 
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XNMXO - MODULE DESCRIPTION 


DESCRIPTIVE NAME: Control record build routine. 
FUNCTION: 

INMXXMIT invokes INMXO to build and write the 
control records for the transmission. If a 
message is accompanying a data file> INMRO also 
writes the message records. 

ENTRY POINT: INMXO 

PURPOSE: See FUNCTION 
LINKAGE: PLS CALL 
CALLERS: INMXXMIT 
INPUT: 

All input is provided via the common parameter 
structure INMCCOM. 

OUTPUT: Control records written to output DCB 
EXIT NORMAL: BR 14 Return to caller 
EXTERNAL REFERENCES: 

ROUTINES: 

The following are invoked via PLS CALL: 

INMCMSGI - Message issuing routine 

DATA AREAS: 

INMCCOM - Common parameter structure 
INMXCQM - TRANSMIT communications area 
INMTEXTU - Transmission text unit keys 
INMXTIND - Terminal input record 

CONTROL BLOCKS: DCB 
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INMXO - MODULE OPERATION 


INMXO builds and transmits each required control 
record. If multiple INMR02 records are built 
for a single data file> INMXO includes the DSNAME 
and associated text units on the first record. 
Before writing to the output file* INMXO packs 
the control records into a long character string 
and then writes 80-character records. INMXO 
leaves any residual record parts in the JESBUFFR 
area to be written with the beginning of the 
data* 
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INMXO - DIAGNOSTIC AIDS 


ENTRY POINT NAME: INMXO 

MESSAGES: None 

ABEND CODES: None 

WAIT STATE CODES: None 

RETURN CODES: 

EXIT NORMAL: 

Return code set in the variable FQUIT of the 
common parameter structure INMCCOM. 

0 - Everything is normal. 

REGISTER CONTENTS ON ENTRY: 

Register 8 - Address of INMCCOM 

Register 13 - Save area address 
Register 14 - Return address 
Register 15 - Entry point address 
Other - Unpredictable 

REGISTER CONTENTS ON EXIT: 

EXIT NORMAL: 

Register 15 - Always zero 
Other - U nc ha nged 
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INMXO - Control record build routine. 


STEP 01 


INMXXMIT 

INMXO 


INMXCOM 


FMSG 

SAVESTAR 

FNOTALL 

FNOTIFY 

IFCOPYLST TRECPTR 

TRECEND 

PRMNAMES 

XPRMAPTR 



XNMTEXTU 


INMTNODE 

INMFNODE 

INMFTIME 

INMFACK 

INMLRECL 

INMTUID 
INMFUID 
INMNUMF 
INMUSERP 



IEFZB4D0 

S99TUP 

S99TULNG |- 

INMXCOM 


UID 

UIDL 


NODE 

NODEL 


TUID 

TUIDL 


TNODE 

TNODEL 


XDATEG 



INMXCOM 


r— 

FMSG 

SAVESTAR 


FCOPYLST 



XNMXTXND 

-J 

TTNREC 


INMXCOM 


TRECPTR 

TRECEND |-1 

INMTEXTU 

INMUTILN 

INMTERM 


INMBLKSZ 

INMDSORG 


INMLRECL 

INMRECFM 


INMSIZE 



XEFZB4D0 

S99TUP 

S99TULNG j- 


J\ 

V 


J\ 

V 


INMXXMIT invokes INMXO io build and write 
the control records tor the transmission. 
If a message is accompanying a data filo> 
INMRO also writes the message records. 


01 


Build the INMRO 1 record for 
the transmission. 


02 


Build the INMR02 record for 
the XNMCOPY operation for 
terminal input files* 


J\XEFZB4D0 


V 


S99TUP 

S99TUKEY 

S99TUNUM 

S99TULNG 

S99TUPAR 


JMEFZB4D0 


1/ 


S99TUP 

S99TUKEY 

S99TUNUM 

S99TULNG 

S99TUPAR 
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XNMXO - Control record build routine* 


STEP 03 


XNMXC0M 

FIEBCOPY 

INMXCOM 

IDIRSIZEr 
POLRECL POBLKSZ 
PORECFM PODSORG 


XNMTEXTU 


IKMUTTLN INMDIR 
INMBLKSZ INMDSGRG 
INMLRECL INMRECFM 
INMSIZE 


XEFZB4D0 


S99TUP S99TULNG 


XEFZB4D0 


S99TUP 


XNMXCOM 


FSEQ FCIPHER 
FNOCIPHR XPRKCPTR 


XEFZB4D0 


S99TULEN 


XNMXCOM 


DSORG 

RECFM r 

LRECL 

SIZE 

BLKSZ 


XNMTEXTU 


INMUTILN INMUSERP 
INMBLKSZ INMDSORG 
INMLRECL INMRECFM 
INMSIZE 


IEFZB4D0 


jS99TUP S99TULNG f 

INMXCOM 

FIEBCOPY 

XEFZB4D0 




Build the XNMR02 record for 
the partitioned data set 
unload/reload operation* 


A. GENERATE THE DSNAME AND OTHER TEXT 
U NITS, 

1 DSNTEXTU: 10 


KXEFZB4D0 

i/|- 

S99TUP 

S99TUKEY 

S99TUNUM 

S99TULNG 

S99TUPAR 


Build the XNMR02 record for 
the encipher/decipher 
operation* 


A, IF THERE IS NO PREVIOUS INMR02 RECORD> 
BUILD THE DSNAME AND OTHER 
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INMXCOM 


JESBUFEN JES8UFFRI 


INMXCOM 


ODCBPTR TRECPTR 
JESBUFPT 


INMXTIND 


1 


Write message records into 
the output file. Build these 
message records into 
segments , each line being a 
segment» and then partition 
them into 80-character 
output records. 


WRITE A MESSAGE SEGMENT. 


MNMXCOM 

/(- 1 

RECCT 

JESBUFPT 

JESBUFFR 



MNMXCOM 

/ l-1 

JESBUFPT 

MRECCT 
MNMREGS 
[ro Rll 
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XNMXO - Control record build routine. STEP 08B 
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XNMXO - Control record build routine. 


STEP 09 


XNMXCOM 

FMSG FCOPYLST 
JESBUFEN JESBUFFR 

XNMXTXND 

TINREC 

XNMTEXTU 


INMDSORG INMLRECL 
INMRECFM INMSIZE 


XNMXCOM 


ODCBPTR 

SIZE r 

DRECPTR 

DRECEND I 

JESBUFPT 

1 


■ 


IEFZB4D0 


S99TUP S99TULNG 
XNMXCOM 
JESBUFFR 
XNMXCOM 


^ODCBPTR RECCT 

XNMXCOM 

JESBUFFR 

XNMXCOM 


RECCT 


)\ Build the record that 
J precedes the data file if a 
message file was also 
transmitted. Write the 
record to the output file 
and concatenate it with any 
data left over from the 
message transmission. 

WRITE A CONTROL RECORD SEGMENT. 

\i- 1 / PUT 


B. WRITE A CONTROL RECORD SEGMENT. 

/'-K.- 

\j-1/ PUT 

(Rl)> (R0) 


\|-j/ FREEMAIN 

RU» LV=(R0), A-(R1) 


C. RETURN TO THE CALLER. 



\XEFZB4D0 

/\ - 

S99TUP 

S99TUKEY 

S99TUNUM 

S99TULNG 

S99TUPAR 

\XNMXC0M 

' \ _ 1 




[71 


RECCT 

JESBUFPT 


\XNMRE6S 


R0 R1 


\XNMXC0M 


RECCT 

JESBUFPT 

JESBUFFR 


\XNMREGS 


R0 R1 


\XNMCCOM 


MODIDPTR 
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INMXO - Control record build routine. 


STEP 10 


1NMXC0M 


- 1 \ 

10 > 

DSNTEXTU 


FDSN 

FDDN 

FDASTAR 

FDSCB 


IHAPSA 



Generate those text units 
that are only included on 
the first INMR02 record. 
These text units include the 
dsname, members, last 
reference date, last change 
date, creation date, and 
expiration date text units. 


RETURN TO THE CALLER. 



ZKJTCB 


J L 



- 1-: 

\ / 

DDNL 

TCBJSCB 

HI : 


DON 


IEZJSCB 


JSCBPSCB 


IKJPSCB 


INMXCOM 

OSNL OSN 
ODNL DON 
LREF CREDT 
EXPDT MEMLPTR 
MEMLPTR1 MEM# 

INNTEXTU 

INMOSNAM INMMEMBR 
INMEXPOT INMTERM 
INMLREF INMCREAT 

IEFZBA00 

S99TUP S99TULN6r 
S99TULEN 

1KJUPT 

luPTPREFX UPTPREFLr 



KIEFZB4D0 

|s99TUP 
S99TIKEY 
S99TUNUM 
S99TULNG 
S99TUPAR 
S99TULEN 
jS99TUPRMj 

MNMXCOM 
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MODULE DESCRIPTION: 

INMXPARM— TRANSMIT and RECEIVE Installation Options 
Block 

FUNCTION: 

The INMXPARM installation options block is required by both 
the TRANSMIT and RECEIVE commands in order for them to 
execute successfully. The INMXPARM CSECT defines options 
which are particular to individual installations. 

ENTRY-POINT: INMXPARM 

PURPOSE: See FUNCTION 

LINKAGE: None 

CALLERS: Referenced by TRANSMIT and RECEIVE commands 
INPUT: None 

OUTPUT: See REGISTERS above 
EXIT-NORMAL: BR 14 Return to caller 
EXIT-ERROR: 

EXTERNAL-REFERENCES: 

ROUTINES: None 
CONTROL-BLOCKS: None 
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MODULE OPERATION: XNMXPARM 

The IKMXPARM CSECT is created by invoking the following 
macros with the required parameters: INMXPt INMNODE and 
INMEND, The INMXP macro defines options such as: Default 
NAMES datasets (both system and user)> transmission record 
limits» VIO unit name specificatien* etc. The INMNODE 
macro defines network node name and SMFID correlations. 

The INMEND macro terminates the INMXPARM CSECT definition. 
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DIAGNOSTIC AIDS: INTIXPARH 
ENTRY-POINT NAME: INMXPARM 

MESSAGES: Kone 

ABEND CODES: None 

UAIT-STATE CODES: None 

RETURN CODES: None 

REGISTER CONTENTS ON ENTRY: Irrelevant 

REGISTER CONTENTS ON EXIT: 

EXIT NORMAL: 

See REGISTERS above 
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XNMXPDS - MODULE DESCRIPTION 


DESCRIPTIVE NAME: PDS Unload Routine 
FUNCTION: 

XNMXPDS controls the invocation of the IEBCOPY 
utility to unload partitioned data sets. It 
allocates all required files, builds control 
statements, and ATTACHES to the IEBCOPY utility. 

ENTRY POINT: INMXPDS 
PURPOSE: See FUNCTION 
LINKAGE: PLS CALL 
CALLERS: INMXM 
INPUT: 

All input is provided via the TRANSMIT command 
communications area INMXCQM. The following 
fields are used: 

IDCBPTR (used to get input DDNAME) 

SPACE (approximate size for unloaded data set) 
MEMLPTR (member record list pointer) 

OUTPUT: 

DDNAME of unloaded data set in the DCB pointed to 
by IDCBPTR 

EXIT NORMAL: BR 14 Return to caller 

EXTERNAL REFERENCES: 

ROUTINES: 

The following are invoked via PLS CALL: 

INMMSGI - Message issuing routine 

The following are invoked via ATTACH: 

IEBCOPY - Unload partitioned data set 

DATA AREAS: 

INMXCOM - TRANSMIT command communications 
area 

INMMCOM * Common parameter structure 
INMXPRMD - Installation options block 

CONTROL BLOCKS: 

DCB, JFCB, DSCB1, 

IEFZB4D0, IEFZB4D2 

TABLES: 

BRl - IEBCOPY unloaded record 1 

BR3 - IEBCOPY Unloaded record 3+ header 

BR4 - IEBCOPY unloaded directory record 

COPYSTMT - IEBCOPY COPY statement 

C0PY1 - COPY statement template 

COPYDDNM - utility ddname substitution table 

OBTPARM - OBTAIN parameter list 
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XNMXPDS - MODULE OPERATION 


INMXPDS performs the following function: 

(1) Allocate the control cardlSYSXN) file. 

(2) Allocate the message file either to the 
user's terminal or to a sysout data set. 

(3) Allocate the SYSUT3 utility file. 

(4) Build control cards for the unload operation. 
A COPY card is always built. One or more 
SELECT cards is built if the user specified 

a member list. 

(5) Write the control cards to the SYSIN file. 

(6) Build a ddname substitution list for XEBCOPY 

so that it will use the DDNAMEs obtained 
rather than the standard SYSPRINT, SYSIN, 
etc. 

(7) Invoke XEBCOPY to perform the unload 

(8) Release the temporary files. 

(9) Check the unloaded file to determine its 
size and the ntonber of directory blocks used. 
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INMXPDS - DIAGNOSTIC AIDS 


ENTRY POINT NAME: INMXPDS 


MESSAGES: 

INMX040I TRANSMIT COMMAND TERMINATED. FAILURE IN 
PARTITIONED DATASET UNLOAD USING IEBCOPY 
XNMX041I IEBCOPY RETURN CODE nn 
INMX042I ALLOCATION ERROR BUILDING xxx FILE 
INMX043I NULL PARTITIONED DATASETS 
CANNOT BE TRANSMITTED 

INMX081I TRANSMIT COMMAND TERMINATED BECAUSE IT 
NAS NOT INVOKED AUTHORIZED 


ABEND CODES: OAF Reason code: 42 Error allocating message file. 


WAIT STATE CODES: None 


RETURN CODES: 

EXIT NORMAL: 

Return code set in the variable FQUIT of 
INMXCOM. 

0 - Everything is normal. 

12 - An error occurred. 


REGISTER CONTENTS ON ENTRY: 

Register 8 - Address of INMCCOM 

Register 13 - Save area address 
Register 14 - Return address 
Register IS - Entry point address 
Other - Unpredictable 


REGISTER CONTENTS ON EXIT: 

EXIT NORMAL: 

Register 15 - Always zero 
Other - Unchanged 
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XNMXPDS - PDS Unload Routine 


STEP 01 


xrcrvtn 

o 

XNMXPDS 


INMXPDS controls the invocation of the 
IEBCOPY utility to unload partitioned data 
sets. It allocates all required files> 
builds control statements! and ATTACHES to 
the IEBCOPY utility. 


Check that the invoked 
TRANSMIT command was 
authorized. This avoids a 
possible BOA abend when 
IEBCOPY starts to obtain 
storage in which to run 
EXCPVR* 


A. CHECK FOR A N AUTHORIZED INVOCATION. 

\(-1/ TESTAUTH 

FCTN=1, STATE=YES> KEY=YES> 
RBLEVEL=1 


XNMREGS 


B. IF THE COMMAND IS NOT AUTHORIZED ISSUE 
MESSAG E INM X081. 

\«- 1 / INMCMSGI 


KXNMCC0M 

1 /|- 

MSGS 

MSGFLAGS 

PLAINMSG 

FRC12 

RC 


XNMCCOM 


XEFZB4D0 
S99RBPTR S99RB 
XEFZB4D2 


DALTRK DALPRIME 
DALUNIT DALRTDDN 


XEFZB4D0 



Allocate the utility files 
required by IEBCOPY* The 
utility files are a control 
statement file, a message 
file which will either be 
the user f s terminal or a 
SYSOUT file, and a SYSUT4 
work space file for IEBCOPY* 


A. ALLOCATE THE SYSIN FILE. 

—^ \ r . . — 


DYNALLOC 


ISSUE MESSAGE INMX040 INDICATING AN 
UNLOAD FAILURE. 



\XEFZB4D0 

/[- 

S99RBPTR 
S99RBPND 
S99RB 
S99TXTPP 
S99TUP 
S99TUPND 
S99TUKEY 
S99TUNUM 
S99TULNG 
S99TUPAR 


\XNMREGS 


\XNMCC0M 
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INMXPDS - PDS Unload Routine 


STEP 02C 
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XNMXPDS - PDS Unload Routine 


STEP 02G 


IEFZB4D0 


6* ISSUE MESSAGE INMX042 TO INDICATE A 
MESSAGE FILE. 


INMCMSGI 


MNMCCOM 

- 

MSG# 

MSGFLAGS 

STRNGMSG 

ALLOCMSG 

FRC12 

FABEND 

RC 

MSG99PTR 

MSGSTRL 

MSGSTRP 


H. CREATE A DUMP OF THE ERROR 


>=!>[ 


MNMREGS 

l'l- 

Iris 


IX 1 OAF 1 > , » SYSTEM 


IEFZB4D0 
S99RBPTR S99RB 
IEFZB4D2 


DALCYL DALPRIME 
DALSECND DALUNIT 
DALRTDDN 


IEFZB4D0 


S99TULNG 


INMXPRMD 


PARMVIOL PARMVIO 


INMREGS 



I. ALLOCA TE TH E SYSUT3 FILE. 

DYNALLOC 


J. ISSUE MESSAGE INMX040 INDICATING AN 
UNLOAD FAILURE. 

/I-1\.- 

\i-«/ INMCMSGI 



MEFZB4B0 

/.- 

S99RBPTR 
S99RBPND 
S99RB 
S99TXTPP 
S99TUP 
S99TUPND 
S99TUKEY 
S99TUNUM 
S99TULNG 
S99TUPAR 


MNMREGS 


MNMCCOM 


MSG# 

MSGFLAGS 

PLAINMSG 

MSGRC 


XEFZB4D0 


K. ISSUE MESSAGE INMX042 INDICATING A 
SYSUT3 FILE ERROR. 


INMCMSGI 


J MNMCCOM 

i/|- 

MSG# 

MSGFLAGS 

STRNGMSG 

ALLOCMSG 

FRC12 

RC 

MSG99PTR 

MSGSTRL 

MSGSTRP 
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XNMXPDS - PDS Unload Routine 


STEP 02L 


XNMXCOM 


jMEMLPTR MEMLPTR1 
XEFZB4D0 


S99RBPTR S99RB 


XNMXCOM 


IEFZB4D2 


DALBLKLN DALPRXME 
OALSECND DALROUND 
DALUNIT DALBLKSZ 
DALRTDDN 


XEFZB4D0 


S99TULNG 


XNMXPRMD 


PARMVIOL PARMVXO 


XNMREGS 



L. ALLOCATE OUTPUT DATA SET SPACE. 


DYNALLOC 


M. ISSUE MESSAGE INMX040 INDICATING AN 
UNLOAD FAILURE. 

/!- 1 \.- 

\i-1/| INMCMSGI 


MEFZB4D0 

/.- 

S99RBPTR 
S99RBPND 
S99RB 
S99TXTPP 
S99TUP 
S99TUPND 
S99TUKEY 
S99TUNUM 
S99TULNG 
S99TUPAR 



XEFZB4D0 


XNMCCOM 


N. ISSUE MESSAGE INMX042 INDICATING AN 
OUTPUT t FILE ERROR. 

\i- ./INMCMSGI 


Issue an OPEN for the 
control statement file, 
build the COPY statement, 
and write it to the file. 


JMNMCCOM 

1 /|- 

MSGS 

MSGFLAGS 

STRNGMSG 

ALLOCMSG 

FRC12 

RC 

MSG99PTR 

MSGSTRL 

MSGSTRP 

KINMXCOM 

i 7 |-1 

PDSDDNAMI 


A. OPEN THE CONTROL CARD FILE. 

/l -N- 

\«- 1 / OPEN 


ISYSIN, OUTPUT), MF=(E, 
OPENLIST) 
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INMXPDS - PDS Unload Routine 


STEP 03B 


IHADCB 


IDCBDDNAM 


B* WRITE THE COPY STATEMENT. 

/i—1\|- 

\i-1 / PUT 


XNMXCON 


|MEMLPTR1 

INMXCOM 


MEMLPTR 


XEFZB4D0 


S99TULEN S99TUPRM 


SYSIN, COPYSTMT 


>1 Build SELECT statements to 
J be passed to XEBCOPY if the 
user specified a member's 
list. 

HRITE A SELECT STATEMENT. 


SYSIN, (0) 


KXNMREGS 


1051 Close the control statement 
1 — 1 file, complete the utility 
parameter list, and invoke 
the XEBCOPY utility. 

A. CLOSE THE CONTROL CARD FILE. 


SYSIN, MF=(E,OPENLIST) 


Segment XNMXPATT issues an 
ATTACH to start the XEBCOPY 
unload of the file, issues 
WAIT to await its 
completion, issues DETACH to 
terminate the TCB, and 
checks the return code from 
XEBCOPY. 


\XNMREGS 


R1 R15 


XNMREGS 


A. ATTACH IEBCOPY 


B. ECB=COPYECB /# ATTACH IEBCOPY 


ATTACH 

EPsIEBCOPY, MF=(E,(1)), 
SF-(E,( 15)), SZERO=NO, 


C. WAIT FOR IEBCOPY. 


ECB=COPYECB 
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XNMXPDS - PDS Unload Routine 


STEP 06D 
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INMXPDS - PDS unload Routine 


STEP 07D 
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XNMXPDS - PDS Unload Routine 


STEP 07K 
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XNMXQ - MODULE DESCRIPTION 


DESCRIPTIVE NAME: Transmit Nickname Resolution Routine* 
FUNCTION: 

This module uses the NAMES data set to generate 
distribution list names into list of nicknames 
and nicknames into node, user id 
It also reads from the names data set values of 
certain global variables such as the logselector 
and logname. 

ENTRY POINT: XNMXQ 

PURPOSE: See FUNCTION 

LINKAGE: PLS CALL 

CALLERS: IW1XM 

INPUT: 

All input is provided via the common parameter 

structure INMCCOM. Following fields are used: 

NSTPTRO and NSTPTR1 provide pointers to the 

list of nicknames entered by the user. 

NUPTRO and NUPTR1 provide pointers to the list 
of nodes and userid's being built. 


OUTPUT: 

All resolved node .userid's are placed in the 
list pointed by NUPTRO and NUPTR1. 

EXIT NORMAL: BR 14 Return to caller 

EXTERNAL REFERENCES: 

ROUTINES: 

The following are invoked via PLS CALL: 

INMCMSGI - Message issuing routine 

INMCA - Control data set allocate routine 

DATA AREAS: 

INMCCOM - Common parameter structure 
INMXCOM - TRANSMIT command communications 
area 

INMXSTK - Addressee table descriptions 
INMXTIND - Terminal input record 

CONTROL BLOCKS: DCB 
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XNMXQ - MODULE OPERATION 


INMXQ attempts to allocate and open the data set 
"prefix•NAMES*text". If this fails* and the 
installation has specified a global names 
data set* INMXQ attempts to use it. 

If both of the above fail* INMXQ does not use a 
NAMES data set and all nicknames are invalid. 

If either of the above is successful* INMXQ reads 
the first section of the NAMES data set for the 
value of logselector* logname* prolog lines* 
epilog lines* and names of alternate NAMES 
data sets. 

After this* INMXQ reads the remainder of the 
data set looking for a resolution of nicknames 
entered by the user. If not all names are found 
in this first data set* INMXQ continues by 
allocating the next NAMES data set (via call to 
INMCA1 and reading that data set. Each time a 
distribution list is found* INMXQ restarts the 
search with the first data set so that early 
nicknames are not missed. 
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XNMXQ - DIAGNOSTIC AIDS 


ENTRY POINT NAME: inmxq 


MESSAGES: 

INMC001I THE NAMES DATASET dsname IS NOT USABLE* 

INMC003I OPEN FAILED FOR THE DATASET* 

INMC010I ONLY TEN :ALTCTL TAGS ARE ALLOWED. 

SUBSEQUENT ONES ARE BEING IGNORED. 

INMC011I THE VALUE •dsname* IS TOO LONG FOR AN 
ALTCTL TAG. IT WILL BE IGNORED. 

INMX019I NO ADDRESSEES FOUND IN THE DISTRIBUTION 
LIST CHAIN. NICKNAMES FOR ALL ENTRIES IN 
THE DISTRIBUTION LIST CHAIN POINT TO 
DISTRIBUTION LISTS. 

INMX020I NICKNAME name WAS NOT FOUND IN ANY NAMES 
DATASET. IT WILL BE IGNORED. 

INMX021I MORE THAN 10 PROLOG LINES HAVE BEEN 
FOUND, SUBSEQUENT PROLOG LINES ARE 
IGNORED. 

INMX022I MORE THAN 10 EPILOG LINES HAVE BEEN 
FOUND* SUBSEQUENT PROLOG LINES ARE 
IGNORED. 

INMX023I NICKNAMES NOT FOUND IN ANY NAMES DATA SET 
SEARCHED. 

INMX024I NICKNAME 'nickname 1 FROM DISTRIBUTION 
LIST 'list name* IN DATASET 'dsname 1 
WAS NOT RESOLVABLE. 

INMX025I TRANSMIT COMMAND TERMINATED BECAUSE MORE 
THAN 200 NICKNAMES WERE FOUND. 

INMX026I THE LAST NAME PROCESSED WAS name. 

INMX027I TRANSMIT COMMAND TERMINATED BECAUSE MORE 
THAN 200 ADDRESSEES WERE FOUND. 

INMX028I THE LAST NICKNAME PROCESSED NAS name. 

INMX029I A :NICK TAG WAS FOUND FOR NICKNAME name* 
BUT IT DID NOT CONTAIN A :USERID TAG. 

INMX030I THE NICKNAME name IS TOO LONG. IT IS 
IGNORED. 

INMX031I TOO MANY LOG REQUESTS WERE ENCOUNTERED. 

LOGGING TO LOGNAME name WILL NOT BE DONE. 

INMX213I MORE THAN 100 NAMES FOUND IN A 
DISTRIBUTION LIST. NICKNAMES 
AFTER 'nickname' IGNORED. 


ABEND CODES: None 


WAIT STATE CODES: None 


RETURN CODES: 

EXIT NORMAL: 

Return code set in the variable FQUIT of 
TRANSMIT command communication area INMXCOM. 

0 - Everything is normal. 

4 - A warning message was issued. 

8 - At least one addressee could not be 
resolved. 

12 - An error has occurred. 


REGISTER CONTENTS ON ENTRY: 
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XNMXQ - DIAGNOSTIC AIDS (Continued) 


Register 8 - Address of INMCCOM 

Register 13 - Save area address 
Register 14 * Return address 
Register IS - Entry point address 
Other - Unpredictable 


REGISTER CONTENTS ON EXIT: 

EXIT NORMAL: 

Register IS - Always zero 
Other - Unchanged 
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INMXQ - Transmit Nickname Resolution Routine. 


STEF 01 


INIwl 

o 

INMXQ 


This module uses the NAMES data set to 

generate distribution list names into list 

of nicknames and nicknames into 

node, user id . It also reads from the names 

data set values of certain global 

variables such as the logselector and 

logname. 


INMCCOM 


IHAPSA 


IKJTCB 

'tcbjscb 


IEZJSCB 


JSCBPSCB 


IKJPSCB 


IKJUPT 


UPTPREFX UPTPREFL 


XNMXPRMD 


t PARMUC PARMUCL 

INMCCOM 


XNMXPRMD 


PARMSC PARMSCL 


XNMCCOM 


XNMXTXND 


XNMXTXND 


XNMRE6S 


INMXCOM 


PROLPTR PR0LEND1 
EPILPTR 


j 011 Clear the table of NAMES 
1 — 1 data sets and then 

initialize the first NAMES 
data set. Initialize the 
user NAMES data set and* if 
that fails> the system NAMES 
data set. Get space for 
Prolog and epilog records. 

A. ALLOCATE AND OPEN THE NAMES DATA SET. 


i 


I 


KINMCCOM 

} / \ - 

DS* ! 

CTL3DSN 

CTLDFLT 

CTLDSNL 

CTLDSN 

CTLNND 
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XNMXQ - Transmit Nickname Resolution Routine. 


STEP 02 
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XNMXQ - Transmit Nickname Resolution Routine. 
INMXTIND r -> 

-- J K 


TINREC TINLEN 
TINDATA 

INMXCOM 


jPROLEND _ 

INMXCOM 

IEPILEND EPILEND1 


INMXTIND 

TINREC TINLEN 
TINDATA 

INMXCOM 


EPILEND 

XNMXSTK 

NSTK 

XNMCCOM 


CTL&DSN 


XNMXPRMD 


PARMSC PARMSCL 


INMXCOM 


NSTPTRO NSTPTR1 


INMXCOM 


FNOLOG FLOGN 
FNOTIFY 


XNMXSTK 



NUSTK 

LSTK 

LQE 



INMXCOM 


LOGDEFL 

LOGDEF 

NUPTRO 

NUPTR1 

LSTPTRO 

LSTPTR1 


INMXSTK 


LSTLQE 


03 SEGMENT INMXQRST RESETS 

1 - 1 LOGGING AND NOTIFICATION 

VALUES THAT WERE DEFAULTED 
IN XNMXUINP BEFORE THE 
DEFAULTS WERE READ FROM THE 
CONTROL SECTION. 


STEP 02G 


MNMXCOM 

Iprolend 




MNMXTXND 

/ \ - 

'TINLEN 

TINZERO 

TINDATA 


MNMCCOM 


MSG# 

MSGFLAGS 

PLAINMSG 

SYNTXMSG 

FRC04 

MSGRECL 

MSGCTLR 


MNMXCOM 


EPILEND 


MNMXTXND 


I TINLEN 
TINZERO 
TINDATA 

MNMCCOM 

/\ - 

CTLtDSN 

CTLDFLT 

CTLDSNL 

CTLDSN 



MNMXSTK 

/.- 

NUFNOT 

LSTCHN 

LSTNAME 

LSTNAMEL 

LSTLQE 

LQECHN 

LQENUPTR 

LQEDLPTR 

MNMXCOM 

/.- 

LSTPTRO 

LSTPTR1 
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XNMXQ - Transmit Nickname Resolution Routine. 


STEP 04 


XNMCCOM 

FQUIT CTLCDSN 
CTLPERR 


XNMCCOM 

DSC 

CTLNND |— 

XNMCCOM 

r 

DSC 

CTLALLOC 

XNMCNND 

r 

NNDOPEN 

NNDDCB 


Scan the nicknames sections 
of one or more NAMES files. 
Scan the files in orders but 
restart the scan each time a 
distribution list is 
resolved. Use INMCA to 
allocate and open the NAMES 
file the first time it is 
referenced. If the file is 
being reused# reopen it. 


A. IF THE DATA SET IS MOT ALLOCATED, 
ALLOCATE AND OPEN IT. 


XHADCB 



XNMCCOM 


CTLDSNL 


KXNMCCOM 

i/i- 

NNDPTR 

DSC 


B. REOPEN THE DATA SET. 



UR15), INPUT), MF S (E, 
OPENLIST) 


C. ISSUE MESSAGE INMC003 IF THE NAMES FILE 
OPEN FAILS. 


INMCMSGI 



MSG# 

MSGFLAGS 

STRNGMSG 

FRC12 

MSGSTRL 

MSGSTRP 

CTLPERR 


XNMCCOM 


XNMCCOM 


ICTLNND 


Scan the nicknames section 
of a NAMES data set. Xnvoke 
GETNXCK and GETTAG to get 
the next entry or the next 
tag and then process the 
tags. 


\XNMCNND 

/«- 

NNDRECC1 

NNDEOF 

NNDOPEN 

\XNMCC0M 

INNDPTR ! 


A. GET THE FIRST NICKNAME ENTRY. 

/■-K.- 

\|- 1 / GETNICK: 10 


B. GET THE FIRST TAG FOR THIS NICKNAME. 

/*-K«- 

\i-1/ GETTAG: 09 
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XNMXQ - Transmit Nickname Resolution Routine. 


STEP 05C 


XNMCNND 


XNMCCOM 


C. COMPLETE THE PREVIOUS ENTRY. 

/I -l\i- 

\,- ,/\ FINISHN: 14 


INMXCOM 


D. INITIALIZE THE NEXT ENTRY. 

\,-./I GETNICK: 10 


E. IF :LIST IS FOUND THEN READ THE LIST OF 
N AMES. 

\i-1/| GETLIST: 13 I 


F. IF :CC. IS FOUND THEN READ THE LIST OF 
N AMES. 

\i-i/l GETLIST: 13 I 


G. READ THE NEXT TAG. 

- 

\i-1/ GETTAG: 09 


061 When an end-of-file occurs 
— 1 on the NAMES data set. 
Complete the entry 
processing if a nickname 
entry was being scanned* 
then close the NAMES file. 


A. IF A NICKNAME NAS BEING PROCESSED. 
FINISH THE LAST NICKNAME. 

/I-1\ ( - 

\i- i/\ FINISHN: 14 


XNMCNND 


NNDOPEN NNOOCB 


KXNMREGS 


XNMCCOM 


B. CLOSE THE NAMES DCB. 
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XNMXQ - Transmit Nickname Resolution Routine* 


STEP 07 


INMCCOM 



INMXSTK 


jjNSTNAME MSTNAMEL| 
INMCCOM 

CPPLPTR CTLDSNL f 
CTLDSN 

XKJEFFMT 

ImSGTABLE r 


>107 When all names files have 
1 been scanned, close any 
names file that is still 
open and issue error 
messages for any nickname 
that was not found. 

A. CLOSE THE NAMES DCB. 


KXNMREGS 



INMCMSGI 


C. ISSUE MESSA6E INMX023 FOR UNRESOLVED 
NICKNAMES. 


CALLTSSR 



EP=IKJEFF02, MF=(E>(1)) 


NNDOPEN 




MSGTABLE 
LISTPTR 
MTCPPL 
MTHIGH 
MSGCSECT 
MTPUTLSW 
MTHEXSW 
MTPGMSW 
MSGID 
LI 

VAR1 

L2 

VAR2 

L3 

VARS 

\XNMREGS 

'Vi — I 


XNMXCOM 


INUPTRO NUPTR1 


D. ISSUE MESSAGE INMX019 FOR RECURSIVE 
DISTRIBUTION LIST 


INMCMSGI 


J \INMCC0M 

l/|- 

MSG# 

MSGFLAGS 
PLAINMSG 
FRC12 
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XNMXQ - Transmit Nickname Resolution Routine. STEP 08 




EC- 


GETTAG 


ZNMCNND 


—> 


NNDEOF 


INMREGS 


R2 


INMCNND 


NNDEOF 


INMREGS 


—> 
—*\ 


R1 


EET 


Locate in the NAMES data 
set* the next valid tag and 
its associated value* Return 
the tag name in the variable 
TAG* padded to eight 
characters. Return the value 
field via pointer ELEPTR (to 
the uppercase version) and 
ELEPTRl to the lower case 
copy). Return the length of 
the value returned in 
ELELEN. Update variables 
INRECPTR and INRECL to 
reflect the progress of the 
scan. 


A. 


IF THERE IS NO INPUT RECORD > READ THE 
FIRST INPUT RECORD. 

/•-<\i- 

\i— -i/\ GETREC: 12 


B. READ THE NEXT RECORD. 
/*-l\i- 


GETREC: 12 


-KXNMREGS 
Vi- 

R2 


C. RETURN TO THE CALLER. 




\ / 


-KXNMREGS 
1/ 


R1 
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XNMXQ - Transmit Nickname Resolution Routine, 


STEP 


INNCNND 


NNDEOF 


XNMXSTK 


NSTK NSTNAME 
NSTFrND NSTLEVEL 


ZNMCCOM 


OS# 


ZNMXCOM 


NSTPTRO NSTPTR1 


INMCNND 


NNDEOF 


ZNMXCOM 


FNOTIFY 


ZNMXCOM 


NODE NODEL 
LOGDEFL LOGDEF 


10 


GETNICK 


—> 
J\ 


—> 

■J\ 

V 


R 


Use the GN1 subroutine to 
locate the next required 
:NXCK tag in the NAMES data 
set. 


A. IF SCAN IS NOT AT :NICK OR NO NAME THERE 
SKIP TO NEXT :NICK TAG 


GN1: 11 


B. GET A NEW NICKNAME FROM THE FILE. 
/I-1\,- 


GNls 11 


C. RETURN WITH A VALID NICKNAME. 


ul 


\ / 



10 
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XNHXQ - Transmit Nickname Resolution Routine. 


STEP 12 


XNMCNND 


INNDEOF NNDDCB 


GETREC 


XNMCNND 

NNDEOF NNDRECV 
NNDDCB 

XNMREGS 


XHADCB 


DCBLRECL 


XNMCNND 


NNDRECC1 


XNMCNND 


XNMREGS 



121 Read records from the names 
— 1 data set. Skip over the 
comment records and remove 
line numbers from the other 
records. Two copies of the 
record are returned , one as 
is and one folded to upper 
case. 


A. READ THE NEXT NAMES FILE RECORD. 


- 1 \ 

15 > 

GETLIST 



Scan the remainder of the 
current value field and 
succeeding records to get 
the list of nicknames in the 
distribution list. 


A. ISSUE MESSAGE INMX030 IF A NICKNAME IS 
TOO LONG. 

/■-l N| - 

\i-1/ INMCMSGI 


B. GET THE NEXT RECORD. 


J\XNMREGS 

l'l-1 

R1 




\XNMCCOM 


MSG# 

MSGFLAGS 

STRNGMSG 

SYNTXMSG 

FRC04 

MSGRECL 

MSGCTLR 

MSGSTRL 

MSGSTRP 


\INMREGS 
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INMXQ - Transmit Nickname Resolution Routine. 


STEP 13C 


XNMREGS 


R1 


C. ISSUE MESSAGE XNMX213 XF OVER 100 NAMES 
IN LIST 


\r—t/ 


INMCMSGI 


D. RETURN TO THE CALLER. 


MNMREGS 


R1 


MSGFLAGS 

STRNGMSG 

FRC08 

MSGSTRL 

MSGSTRP 


INMCCOM 


SB 


XNMXSTK 


| NSTFLAGS 

INMXCOM 

FLOGALL 

INMXCOM 


NSTPTR2 
i _ 

XNMXSTK 


Ev 

FXNXSHN 



NSTK 

NSTNAME 

NSTFFND 

NSTLEVEL 



XNMCCON 


SO 


XNNXCON 


NSTPTRO NSTPTR1 



Move the values for the 
entry from local variables 
into the addressee list 
Inode/userid list) or back 
into the nickname list if 
the entry was a distribution 
list entry. 


\XNMXSTK 


A. ADD THE 

si _Jv . 

ENTRY TO LOG REQUEST LIST. 


1 s 

LOGIT: IS 



8. ISSUE MESSAGE XNMX026 XF THERE ARE MORE 
THAN 200 NICKNAMES 
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XNMXQ - Transmit Nickname Resolution Routine. 


STEP 15 


XNMXCOM 


LSTPTRl LSTPTR2 


->\ 

15 > 

- 1 / 

LOGIT 


XNMXSTK 



151 Build entries in the log 
— 1 request list. First scan the 
LSTK list to see if an entry 
already exists for the 
lognams being requested. Xf 
not ^ build a new LSTK entry 
built for this name. Once 
the LSTK entry is available# 
build a new LQE addressee 
entry for this request. 



\XNMCCOM 

I MSGS 

'msgflags 1 

STRNGMSG 
FRC08 
MSGSTRL 
MSGSTRP 
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XNMXR - MODULE DESCRIPTION 

DESCRIPTIVE NAME: TRANSMIT ABEND Cleanup Routine 
FUNCTION: 

XNMXR issues ABEND apology messages to the 
user. 

ENTRY POINT: INMXR 
PURPOSE: See FUNCTION 
LINKAGE: BALR FROM INMCR 
CALLERS: INMCR 

INPUT: CMDABEND field in XNMCCQM has the ABEND code 
OUTPUT: Message to the user giving the ABEND code 
EXIT NORMAL: BR 14 Return to caller 
EXTERNAL REFERENCES: 

ROUTINES: None 

DATA AREAS: XNMCCOM - Common parameter structure 
CONTROL BLOCKS: None 
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INMXR - MODULE OPERATION 


INMXR receives control after an ABEND. 
It converts the abend code to printable 
format and issues messages to the user. 
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XNMXR - DIAGNOSTIC AIDS 


ENTRY POINT NAME: inmxr 
MESSAGES: 

INMXQ37I TRANSMIT COMMAND TERMINATED. ABEND xxx 
INMX038I REGISTER 15 VALUE AT ABEND NAS xxxxxxxx 

ABEND CODES: None 

WAIT STATE CODES: Nona 

RETURN CODES: 

EXIT NORMAL: 

Register 15 is always zero. 


REGISTER CONTENTS ON ENTRY: 

Register 8 - Address of INMCCOM 

Register 13 - Save area address 
Register 14 - Return address 
Register 15 - Entry point address 
Other - Unpredictable 


REGISTER CONTENTS ON EXIT: 

EXIT NORMAL: 

Register 15 - Always zero 
Other - Unpredictable 
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INMXR - TRANSMIT ABEND Cleanup Routine 


INMCR 

o 

INMXR 


INMXR issues ABENO apology messages to the 
user 
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XNMXTXN - MODULE DESCRIPTION 


DESCRIPTIVE NAME: Terminal Read Routine 
FUNCTION: 

INMXTIN reads terminal messages and data 
records of the TRANSMIT command. Depending on 
the terminal type and the specification of 
the LINE or FULLSCR keywords on the TRANSMIT 
command> INMXTIN uses either PUTGET or an 
internal full-screen process to read the data. 

ENTRY POINT: INMXTIN 

PURPOSE: See FUNCTION 

LINKAGE: PLS CALL 

CALLERS: INMX 

INPUT: 

Control input is provided via the TRANSMIT command 
communications area INMXCOM. The following fields 
are used: 

INPDCB (already OPEN), FMSG, Fxxxx 
OUTPUT: 

Records read from the terminal (or CLXST) are 
stored in buffers pointed to by TINPTR. 

The last entry is pointed to by TINEND. 

EXIT NORMAL: BR 14 Return to caller 

EXTERNAL REFERENCES: 

ROUTINES: 

The following are invoked via PLS CALL: 

XNMCMSGI - Message issuing routine 

The following are invoked via PUTGET: 

PUTGET - Read terminal input in line mode 

The following are invoked via ATTENTION: 

INMCX - Attention handling routine for 
the TRANSMIT command 

DATA AREAS: 

INMXCOM - TRANSMIT Command communications 
area 

INMCCOM - Common parameter structure 
INMXPRMD - Installation options block 

CONTROL BLOCKS: CPPL, ECT 

TABLES: TINREC - In-memory buffer record 
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XNNXTXN - MODULE OPERATION 


INMXTIN reads message data from the terminal and 
stores it in a structure that is used by other 
TRANSMIT subroutines. INMXTIN checks to see if 
the user's terminal is a multi-line terminal* and 
if so uses full-screen input code. 

Each full-screen pass consists of displaying 
any previously read data from the user and 
waiting for the user's response. INMXTIN 
modifies changed lines in the storage buffers* 
modifies the user's logical position* and makes 
the next display. If the user's terminal is a 
single-line terminal or if "LINE" was requested* 
INMXTIN uses PUTGET to read single lines from the 
terminal. 
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INMXTIN - DIAGNOSTIC AIDS 


ENTRY POINT NAME: INMXTIN 
MESSAGES: 

INMX090A ENTER t xxxxxxx f . ENTER NULL LINE OR 
TO STOP. 

INMX091I END OF INPUT BUFFER HAS BEEN REACHED. 

A PARTIAL TRANSMISSION HAS BEEN SENT. 

ABEND CODES: None 

WAIT STATE CODES: None 

RETURN CODES: 

EXIT NORMAL: 

Return code set in the variable RC of 
the common parameter structure INMCCOM. 

0 - Everything is normal. 


REGISTER CONTENTS ON ENTRY: 

Register 8 - Address of INMCCOM 

Register 13 - Save area address 
Register 14 - Return address 
Register IS - Entry point address 
Other - Unpredictable 


REGISTER CONTENTS ON EXIT: 

EXIT NORMAL: 

Register 15 - Always zero 
Other - Unchanged 
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XNMXTXN - Terminal Read Routine 


STEP 01 


PARAMETERS 


jin nx 

c> 

XNMXTXN 
- K 

-1/ 


INMXTIN reads terminal messages and data 
records of the TRANSMIT command. Depending 
on the terminal type and the specification 
of the LINE or FULLSCR keywords on the 
TRANSMIT command> INMXTIN uses either 
PUTGET or an internal full-screen process 
to read the data. 


Obtain space for the 
terminal input* Move into 
the first few records the 
Prolog and copylist records 
if those are requested* 


KINMREGS 


OBTAIN SPACE FOR BUFFER 


GETMAIN 


R> LV=(R3) 


XNMXTXND 


\XNMXC0M 


TINREC 


XNMXCOM 


FDASTAR 

FMSG 

FNOPROL 

FCOPYLST 


XNMRE6S 


B. GET THE TERMINAL CHARACTERISTICS. 


GTSIZE 


TINLEN 

TINZERO 

TINDATA 


XNMXTXND 


TINLEN TINZERO 
TINDATA 


XNMXCOM 


NUPTRO PROLPTR 
PROLEND 


XNMXSTK 


NUCHAIN 

NUNODE 

NUUID 

NUNAME 


XNMREGS 


li 
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INMXTIN - Terminal Read Routine 


STEP 02 


INMXCOM 


INMXTIND 


IHAPSA 

1 PSATOLD 


IKJTCB 


TCBJSCB 


IEZJSCB 


JSCBPSCB 


IKJUPT 


UPTNPRM 


INMXCOM 


TINPTR TINEND 


INMXTIND 


02 Set the full screen mode on 
*— 1 and establish a STAX 

routine to maintain full 
screen mode if the user hits 
the attention key. When the 
input process is complete, 
reset full screen mode and 
cancel the STAX exit. 

A. ESTABLISH THE ATTENTION ROUTINE. 

/I-1\.- 

\|- \/ STAX 

(R14) * USADDR=(COMPTR)> 
MF=(E, STAXLIST) 


B. INITIALIZE THE 3270 ADDRESSING TABLES 
FOR WHATEVER SCREEN SIZE IS BEING USED. 



C. CHARACTER OF THE LINE 


D. ADDRESS ON THE LINE 


MNMXTIND 

]TINLEN | 

MNMREGS 

l/ \ - 1 

R14 


MNMREGS 


MNMREGS 


MNMREGS 


TINLEN 


IKJPSCB 


PSCBUPT 


E. CHARACTER OF THE LINE 

F. TELL V TAM T HAT THIS IS A FULL SCREEN. 

\i-./ STFSMODE 


MNMCCOM 


GFULLSCR 


INMXCOM 


INMXTIND 


TINREC 


PARAMETERS 


INMXCOM 


TINPTR 


ON, INITIAL=YES 


03 Build the output screen, 

1 — 1 starting with the current 
line and continuing for as 
many lines as can fit on the 
screen. Place line numbers 
at the left edge to identify 
where in the message the 
user is. 

A. WRITE THE S CREEN TO THE TERMINAL. 

\|-1/ TPUT 

(1), (0), R 


MNMREGS 


RO R1 


INMXTIND 


TINLEN TINDATA 


After the input data is 
read, scan through the data 
and pick out the input 
lines. Process the AID 
character that controls 
scrolling and termination. 


MNMREGS 


R0 R1 
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XNMXTXN - Terminal Read Routine STEP 04A 
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INMXTXN - Terminal Read Routine 


STEP 05 


IKJEFFMT 
MSGCSECT 
PARAMETERS 
TITLE 
INMXCOM 
LINEENDL LINEEND 
IKJEFFMT 
MSGTABLE 
INMCCOM 


IOPLAREA 


Uses IKJEFF02 to prompt the 
user to enter message lines 
and then use PUTGET to read 
each line. The input process 
terminates with the first 
error or when the user 
enters the terminating 
string. If the end of the 
buffer is reached* message 
XNMX091X is issued. 


A. ISSUE MESSAGE INMX090 FOR AN INPUT 
TITLE. 

/ X —N - 

\i- 1 / CALLTSSR 


1P=IKJEFF02> MF=(E>(1)) 


PUTGET 

PARM=PGPB, OUTPUT®C0 >,MODEI, 
TERMGET=(EDIT)> MF=(E,CD) 


JMKJEFFMT 

V\ - 

MSGTABLE 

LISTPTR 

MTCPPL 

MTHIGH 

MSGCSECT 

MTPUTLSW 

MTHEXSW 

MTPGMSH 

MSGID 

LI 

VAR1 

L2 

VAR2 

J \INMREGS 


CPPLPTR 

_ | | 


-r *-i / r- 1 

R1 

INMXCOM 

1- 

- > 

1-'MNMREGS 


INMREGS 

R1S 

INMXCOM 


IOPLAREA LINEENDL 
LINEEND 


IKJECT 


ECTLOGF 


INMXTXND 


TINREC 


XKJPGPB 


PGPBIBUF 


INMXTXND 


TINREC 


INMXCOM 


LINEENDL LINEEND 


XKJPGPB 


PGPBIBUF 


KXNMXTXND 


B. READ MORE INPUT LINES 
/* 

\ 


B 


PUTGET 


PARM=PGPB, OUTPUT®(0,,MODE)* 
TERMGET=EDIT, MF=( E , ( 1) ) 





C. ISSUE MESSAGE INMX091I WHEN MAX IS 
REACHED. 

/«— l \i- 

\i-./ INMCMSGI 
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XNMXTXN - Terminal Read Routine 


STEP 05D 
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XNMXUINP - MODULE DESCRIPTION 


DESCRIPTIVE NAME: TRANSMIT Command Scan Routine 
FUNCTION: 

INMXUINP performs the syntax scan of the TRANSMIT 
command operands. INMXUINP uses the IKJPARS 
command parse routine to perform syntax scanning 
and then moves the values into the TRANSMIT 
command communications area. 

ENTRY POINT: INMXUINP 

PURPOSE: See FUNCTION 

LINKAGE: PLS CALL 

CALLERS: INMXM 

INPUT: 

All input is provided via the TRANSMIT command 
communications area INMXCOM. The following fields 
are used: 

CPPLPTR (for IKJPARS parameters and the command 
buffer) 

OUTPUT: Values set in INMXCOM 
EXIT NORMAL: BR 14 Return to caller 
EXTERNAL REFERENCES: 

ROUTINES: 

The following are invoked via PLS CALL: 

INMMSGI - Message issuing routine 

The following are invoked via CALLTSSR: 

IKJPARS - Command parse routine 

DATA AREAS: 

INMXCOM * TRANSMIT communications area 
INKCCQM - Common parameter structure 
INMXPRMD - Installation options block 
INMPDL - Parameter description list 

CONTROL BLOCKS: 

CVT, PSA, ASCB, 

IEFZB4D0, IEFZB4D2, 

CPPL, PPL, ECT, UPT 

TABLES: TRTBL1 - Translate table for userid verification 
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ZNMXUINP - MODULE OPERATION 


INMXUINP performs the following functions: 

(1) Build the IKJPARS parameter list and pass 
the user's command to IKJAPRS. 

(2) Move values extracted by IKJPARS into local 
variables (in INMXCOM). 

(3) Release IKJPARS space. 
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XNMXUXNP - DIAGNOSTIC AIDS 


ENTRY POINT NAME: inmxuinp 


MESSAGES: 

INMX092I TRANSMIT COMMAND TERMINATED. FAILURE IN 
COMMAND SYNTAX CHECKING. 

INMX094I THE COMMAND NAS INCOMPLETE BUT PROMPTING 
NAS NOT ALLONED. 

INMX035I ENCIPHER NAS SPECIFIED BUT HAS BEEN 
DISABLED BY YOUR INSTALLATION. 

INMX036I KEYNORDS 'SEQUENTIAL 1 AND 'MEMBERS' 
CONFLICT. 'SEQUENTIAL' IS IGNORED. 


ABEND CODES: None 


WAIT STATE CODES: None 


RETURN CODES: 

EXIT NORMAL: 

Return code is set in the variable FQUIT of 
the common parameter structure XNMCCOM. 

0 - Everything is normal. 

12 - Bad return code from IKJPARS. 


REGISTER CONTENTS ON ENTRY: 

Register 8 - Address of INMCCOM 
Register 13 - Save area address 
Register 14 - Return address 
Register 15 - Entry point address 
Other - Unpredictable 


REGISTER CONTENTS ON EXIT: 

EXIT NORMAL: 

Register 15 * Always zero 
Other - Unchanged 
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XNMXUXNP - TRANSMIT Command Scan Routine 


STEP 01 
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INMXUINP - TRANSMIT Command Scan Routine 


STEP 02 


INMPDL 


DSNPTR DSNPRES 
IDNPRES 


INMXCOM 


INMXPRMD 


PARMCYES PARMCNO 


INMPDL 


DSMLEN IDNLEN 
IDKCHAR 


1 

1 


’->|| 021 Scan the PDLs returned by 
11 — 1 IKJPARS and move the values 
to INMXCOM. 

A. ISSUE MESSAGE INMX035 IF THE ENCIPHER IS 
DISALLOWED* 


INMCMSGI 


INMXCOM 


IEFZB4D0 


S99TULEN 




PARMCALH 


INMPDL 


IDNPRES IDNCHAIN 


INMXCOM 


LINEENDL 


INMREGS 


INMPDL 


.IDNLEN IDNCHAR 


B. ISSUE MESSAGE INMX036 IF BOTH MEMBERS 
AND SEQ ARE SPECIFIED. 


INMREGS 


INMPDL 


KINMREGS 


MNMXCOM 


FDSN 

FMEM 

FDDN 

FDASTAR 

FMSG 

FCIPHER 

FCOPYLST 

DSNL 

DSN 

DDNL 

DON 

MEMLPTR1 

MEM# 


MEFZB4D0 


MNMCCOM 


MSG# 

MSGFLAGS 

PLAINMSG 


MNMXCOM 


FMEM 

FNOEPIL 

FULLSCR 

FCIPHER 

FNOLOG 

FLOGALL 

FLOGN 

LOGDEFL 

LOGDEF 

LINEENDL 

LINEEND 


IDNLEN IDNCHAIN 



2-330 Interactive Data Transmission Facility Logic LY28-1105-2 (c) Copyright IBM Corp. 1981# 1986. 












































"Contains Restricted Materials of IBM 1 ' 
Licensed Materials - Property of IBM 


INMXUINP - TRANSMIT Command Scan Routine 


STEP 02C 
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INMXV - MODULE DESCRIPTION 


DESCRIPTIVE NAME: Address Validity Check Routine 
FUNCTION: 

INMXV is the IKJPARS validity check routine for 
the addressee list* INMXV looks at each addressee 
list element* decides if it is a nickname or 
a node and userid* then adds it to the proper 
internal list. 

ENTRY POINT: INMXV 

PURPOSE: See FUNCTION 

LINKAGE: PLS CALL 

CALLERS: IKJPARS 

INPUT: 

The PDE built by IKJPARS for the TO (DESTINATION) 
keyword and a pointer to the common parameter 
structure INMCCOM* 

OUTPUT: 

A return code indicating whether IKJPARS should 
re-prompt or not. If a nickname was entered* 
the NICKNAME and FPRIVATE fields in the TRANSMIT 
communications area (INMXCOM) will have been set. 

EXIT NORMAL: BR 14 Return to caller 

EXTERNAL REFERENCES: 

ROUTINES: None 

DATA AREAS: 

INMXSTK - Addressee table descriptions 
INMCCOM - Common parameter structure 
INMXCOM - The TRANSMIT communications area 

CONTROL BLOCKS: CPPL* PSCB 
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INMXV - NODULE OPERATION 


Scan the value specified by the user. 

If it contains a slash or period* assume it 
to be of the format node/userid. 

Otherwise* assume it to be a nickname (or 
possibly a distribution list). Add addressee 
elements to the corresponding internal after 
checking the syntax. 
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XNMXV - DIAGNOSTIC AIDS 


ENTRY POINT NAME: INMXV 

MESSAGES: None 

ABEND CODES: None 

WAIT STATE CODES: None 

RETURN CODES: 

EXIT NORMAL: 

Return code set in register 15. 

0 - The parameter is accepted. 

4 - IKJPARS should re-prompt for the parameter. 

REGISTER CONTENTS ON ENTRY: 

Register 1 - Address of the POE to be checked 

Register IS - Save area address 

Register 14 - Return address 

Register 15 - Entry point address 

Other - Unpredictable 

REGISTER CONTENTS ON EXIT: 

EXIT NORMAL: 

Register 15 - Return code 
Other - Unchanged 
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ZNMXV - Address Validity Check Routine 


STEP 01 


IKJPARS 

c> 

ZNMXV 


ZNMPDL 


XDNCHAR 


INMCCOM 


MODIDPTR 


ZNMPDL 


IDNLEN 

_f 

ZNMXCOM 

NUPTR2 

ZNMXSTK 

NUSTK 

NUNODE 

NUUID 

NSTNAME 

NSTK 


—> 
V 


ZNMPDL 


XDNLEN XDNCHAR 


ZNMXCOM 


□ 


NSTPTRO NSTPTR1 
NUPTRO NUPTR1 


—> 
-»\ 
V 


ZNMXV is the IKJPARS validity check 
routine for the addressee list. ZNMXV 
looks at each addressee list element, 
decides if it is a nickname or a node and 
userid, then adds it to the proper 
internal list. 


|01| Scan the addressee list 
element, checking for a 
period or slash. Zf either 
is found, process a 
node.userid entry. 

Otherwise, process the entry 
as a nickname (or 
distribution list] 


PROCESS VALUES THAT HAVE THE FORMAT: 
“NODE.USERID" OR “NODE/USERXD". CHECK 
THE LEN6TH OF THE USERID FIELD AND THEN 
ADD THE NODE AND USERID TO THE 
NODE/USERXD LIST. BUILD AN ENTRY IN THE 
L06 LIST. 


B. RETURN TO IKJPARS. 


-KZNMCCOM 


COMPTR 

MODIDPTR 


KZNMXCOM 


C7l 


\ / 



UMNMXSTK 

IV 


NUNODEL 

NUNODE 

NUUIDL 

NUUID 

NUNICKL 

NUNICK 

NUNAMEL 

NUNAME 

NUFLAGS 

NSTNAME 

NSTNAMEL 

NSTFLAGS 

NSTLEVEL 

NSTLISTP 


UMNMCCOM 

-l/l 


MODIDPTR 
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INMXXMIT - MODULE DESCRIPTION 


DESCRIPTIVE name: Sequential Pile Transmit Routine 
FUNCTION: 

INMXXMIT gets control from INMXM once for each 
addressee. INMXXMIT invokes INMXO to build the 
header records (and possibly accompanying 
message records). INMXXMIT then transmits the 
data records. 

ENTRY POINT: INMXXMIT 
PURPOSE: See FUNCTION 
LINKAGE: PLS CALL 
CALLERS: INMXM 
INPUT: 

All input is provided via the TRANSMIT command 
communications area INMXCOM. Primary inputs are 
the input DCB and the information for building 
control records. 

OUTPUT: 

Data file and control records written to the output 
file. 

EXIT NORMAL: BR 14 Return to caller 

EXTERNAL REFERENCES: 

ROUTINES: 

The following are invoked via PLS CALL: 

INMCMSGI - Message issuing routine 

The following are invoked via CALLTSSR: 

IKJEFF02 — TSO message issuing routine 

DATA AREAS: 

INMXCOM - TRANSMIT command communications 
area 

INMCCOM - Common parameter structure 
INMXPRMD - Installation options block 

CONTROL BLOCKS: CVT, 0CB> IKJEFFMT 

TABLES: 

OBUF - Output buffer format 
ObfREC - Output record format 
LOGBUFR - Lob record buffer 
IBUF - Input record buffer 
SPANBUFR - Spanned record input buffer 
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INMXXMXT - MODULE OPERATION 


INMXXMIT performs the following functions: 

1) Invoke INMXO to build and transmit the control 
records. 

2) Issue OPEN for the input data set if that 
has not already been done. 

3) Segment and transmit the data records. 

4) Build and transmit the INMR06 trailer record. 

5) CLose and deallocate the output file. 
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ENTRY POINT NAME: inmxxmit 


MESSAGES: 

INMXOOOI nn MESSAGE AND m DATA RECORDS SENT AS 
nn RECORDS TO node.userid 

INMX032I TRANSMIT COMMAND TERMINATED. TRANSMISSION 
LIMIT OF nn RECORES EXCEEDED 

INMX033I YOU HAVE EXCEEDED THE MAXIMUM 
TRANSMISSION SIZE SET BY YOUR 
INSTALLATION. 

INMX034I WARNING: nn RECORES TRANSMITTED. YOUR 
INSTALLATION LIMIT IS nn. 

INMX060I TRANSMIT COMMAND TERMINATED. INPUT 
OATASET UNUSABLE. 

INMX062I OPEN FAILED FOR DATASET dsname. 

INMX083I TRANSMIT COMMAND TERMINATED. THE OPEN 
FAILED ON FILE PASSED FROM IEBCOPY OR 
AMS REPRO. 


ABEND CODES: 

OAF Reason Code: 83 OPEN failed for the 
utility file. 


WAIT STATE CODES: None 


RETURN CODES: 

EXIT NORMAL: 

Return code set in the variable FQUIT of 
the TRANSMIT command communications area 
INMXCOM. 

0 - Everything is normal. 

8 - An error occurred in this transmission. 
12 - A terminating error occurred. 


REGISTER CONTENTS ON ENTRY: 

Register 8 - Address of INMCCQM 

Register 13 - Save area address 
Register 14 - Return address 
Register IS - Entry point address 
Other - Unpredictable 


REGISTER CONTENTS ON EXXT: 

EXIT NORMAL: 

Register 15 - Always zero 
Other - Unchanged 
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XNMXXMXT - Sequential File Transmit Routine 


STEP 01 


iNrcsn 

rn INMXXMIT gets control from INMXM once for 

I U \ each addressee. INMXXMIT invokes INMXO to 
| > build the header records (and possibly 

1 | / accompanying message records ). INMXXMIT 

XNMXXMXT then transmits the data records. 


XNMCCOM 


XNMXCOM 


EOF RECFM 

JESBUFFR 


XNMXCOM 


DRECPTR JESBUFPT 
JESBUFEN 


XNMXPRMD 


.PARMWRN1 


Oil Perform the segmenting and 
1 — 1 transmission of the data 
records. 


KINMXCOM 


FRECV 

FSPANNED 


XNMXCOM 


IFDASTAR FCIPHER 


02| Read the input data records 
— 1 and divide them into 
segments of 255 or less 
bytes. Format these records 
into the 80 character output 
records and send them via 
the PUTXT routine. 


XNMXCOM 


->l A. SIMULATE THE END OF FILE. 


TINLEN 


XNMXCOM 


>£OFADDRt 026 


XNMXTXND 


\XNMXC0M 


TINREC TINDATA 


XNMXTXND 


B. READ A RECORD FROM THE INPUT DATA SET. 


DRECCT 


IDCBPTR DRECCT 
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INMXXMXT - Sequential File Transmit Routine 


STEP 02C 


INMXCOM 


FRECV FSPANNED 
FIEBCOPY 


KIBUF 



DCBLRECL 


INMCCOM 


E. WRITE THE OUTPUT BUFFER. 


PUTIT: 05 


INMCCOM 


F. W RITE f THE LAST BUFFER. 

\|-1/| PUTIT: 05 


026 > 6. 

L——,/ 

EOFADDR 


INMCCOM 


-> 03 Build the INMR06 trailer 
1 — 1 record and invoke the PUTIT 
routine to send it. 


A. WRITE THE FULL BUFFER. 


PUTIT: 05 


B. WRITE THE INMR06 TRAILER RECORD. 

/I-l\i- 

\i-./ PUTITs 05 
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XNMXXMXT - Sequential File Transmit Routine 

CHADCB --> ~~ 

-- J ,-K 


XHADCB 

BCBOFOPN 

INMXCOM 


IDCBPTR 


C. CLOSE THE I NPUT DCB. 


CLOSE 

((R15))» MF=(E» OPENLIST) 


STEP 03C 


KINMREGS 

!/ |-- 

Iris 


XNNXCOM 


ODCBPTR 


04 Xf the transmission process 
1 — 1 was successful, send a 

message giving the user the 
transmitted record counts* 
Unallocate the output file* 
Free the output file with a 
disposition of delete, 
causing JES to purge the 
file* 

A. CLOSE THE OUTPUT DCB. 


CLOSE 


U2))> MF=(E, OPENLIST) 


MNMREGS 

!/ |r2 


XNMCCOM 


FQUIT 


IKJEFFMT 


MSGCSECT 


XNNXCOM 


TUID 

TNODE 

RECCT 

DRECCT 

MRECCT 



XNMCCOM 


CPPLPTR 


IKJEFFMT 


MSGTABLE 


CALLTSSR 


EP=IKJEFF02, MF=(E,tD) 


\IKJEFFMT 


MSGTABLE 

LISTPTR 

MTCPPL 

MTHIGH 

MSGCSECT 

MTPUTLSW 

MTNHEXSW 

MTPGMSH 

MSGID 

MTLEN 

MTHIGHL 

MTADDR 
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XNMXXMXT - Sequential File Transmit Routine 


STEP 04C 


INMXCOM 


FOUTDSN FOUTDDN 


XNMCCOM 


XEFZB4D0 


S99RBPTR S99RB 


XHADCB 


OCBODNAM 


XEFZB4D2 


DUNODNAM 


XEFZB4D0 


.S99VRBUN S99TULNS 


XEFZB400 


|S99RBPTR S99RB 

XEFZB4D2 


DUNODNAM DUNOVDSP 


XHADCB 


DCBDDNAM 


XEFZB4D0 


.S99VRBUN S99TULNG 


XNMCCOM 




C. FREE THE JES FILE WITH A DISPOSITION OF 
KEEP. i _ | 

\l-1/| DYNALLOC 


Ds DELETE THE JES OUTPUT IF AN ERROR 
OCCURS. 


\|- 1 / 


DYNALLOC 



-> E. IF THERE ARE NO ERRORS, SET A 


F. IF THERE ARE ERRORS, SET A RETURN CODE 
OF 4 


•KXEFZB4D0 


S99RBPTR 

S99RBPND 

S99RB 

S99VERB 

S99TXTPP 

S99TUP 

S99TUPND 

S99TUKEY 

S99TUNUM 

S99TULNG 

S99TUPAR 


\INMREGS 




in 

\ / 

tn 


S99RBPTR 

S99RBPND 

S99RB 

S99VERB 

S99TXTPP 

S99TUP 

S99TUPND 

S99TUKEY 

S99TUNUM 

S99TULNG 

S99TUPAR 


MNMREGS 

/.- 

R1 

JMNMCCOM 

^ImodidptrI 
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XNMXXMXT - Sequential File Transmit Routine 


STEP 05 


XNMXCOM 


> 051 Write records to the output 
' — 1 file. Count output records 

[T and issue the warning and 

■TomtH na+ 4 nn moeeanoe uhon 


MNMCCOM 

I MSGSj 

'msgflags 1 

DECMSG 
FRC12 
RC 

MSGFIXED 
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INMXXMIT - Sequential File Transmit Routine 


STEP 06 
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INMXZ - MODULE DESCRIPTION 


DESCRIPTIVE NAME: TRANSMIT Installation Exit-Invocation 

Routine 

FUNCTION: 

INMXZ controls the calling of user exits from the 
TRANSMIT command. INMXZ is invoked by any 
TRANSMIT command module wishing to invoke a user 
exit. INMXZ builds the exit parameter list* 
invokes the exit* checks the exit return codo> 
and passes back any exit-specified values to the 
caller. 

ENTRY POINT: INMXZ 
PURPOSE: See FUNCTION 
LINKAGE: ATTACH 
CALLERS: INMXM*INMRCODE 
INPUT: None 
OUTPUT: None 

EXIT NORMAL: BR 14 Return to caller 

EXTERNAL REFERENCES: 

ROUTINES: 

The following are invoked via PLS CALL: 

INMCMSGI - Message issuing routine 

The following are invdked via CALLTSSR: 

IKJEFF02 - TSO message issuing routine 

There are weak external references for: 

INMXZ01 - TRANSMIT startup exit routine 
INMXZ02 - TRANSMIT termination exit routine 
INMXZ03 - TRANSMIT encryption exit routine 

DATA AREAS: 

INMXCOM - TRANSMIT command communications 
^ *' area 

INMCCOM - Common parameter structure 
CONTROL BLOCKS: CVT, IKJEFFMT 
TABLES: PLIST - Parameter list structures 
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XNMXZ - MODULE OPERATION 


INMKZ is called by all TRANSMIT command modules wishing 
to invoke a user exit. The module is divided into 
common code for those functions that are common to all 
exits and unique code that builds and processes 
exit-unique parameter list sections. 

The common code functions include determining if the 
exit routine exists > passing of the user word in the 
parameter list* passing the TSO CPPL> and passing and 
processing a message area that the exit can use to have 
messages sent to the user. 
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INMXZ - DIAGNOSTIC AIDS 


ENTRY POINT NAME: INMXZ 


MESSAGES: 

INMX150I TRANSMIT COMMAND TERMINATED BY 
INSTALLATION EXIT exitname. 
INMX151I message from exit routine 
INMX153I ADDRESSEE LIST HAS BEEN 

INVALIDATED BY INSTALLATION 
EXIT exitname. 

INMX214I INVALID MESSAGE LENGTH PROVIDED 
BY INSTALLATION EXIT FOR MESSAGE 
INMX151I♦ 


ABEND CODES: None 


WAIT STATE CODES: None 


RETURN CODES: 

EXIT NORMAL: 

Return code in register 15 is always zero. 


REGISTER CONTENTS ON ENTRY: 

Register 1 - Parameters: exit routine number 

Register 13 - Save area address 
Register 14 - Return address 
Register 15 - Entry point address 
Other - Unpredictable 


REGISTER CONTENTS ON EXIT: 

EXIT NORMAL: 

Register 15 - Zero 
Other - Unchanged 
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INMXZ - TRANSMIT Installation Exit-Invocation Routine 


STEP 01 


INMXM *INMRCODE 


PARAMETERS 
IEXITS 


c> 

INMXZ 

-'\ 

-1/ 


INMXZ controls the calling of user exits 
from the TRANSMIT command. INMXZ is 
invoked by any TRANSMIT command module 
wishing to invoke a user exit. INMXZ 
builds the exit parameter list* invokes 
the exit* checks the exit return code* and 
passes back any exit-specified values to 
the caller. 


PARAMETERS 
IEXITS 



Perform exit-specific setup 
functions to allow unique 
parameters to be used by 
each exit. 


A. PERFORM INITIALIZATION UNIQUE TO THE 
USER INMXZ01 EXIT. ALLOCATES CERTAIN 
PARAMETER AREAS THAT HILL BE PRESERVED 
AND PASSED TO THE OTHER EXITS. 

B. OBTAIN SPACE FOR THE SENDER THE DATA. 


GETMAIN 


R* LVc(O) 


C. PERFORM INITIALIZATION UNIQUE TO THE 
USER INMXZ02 EXIT. 


1 


MNMXCOM 


FXZ01 


MNMREGS 


\1NMXC0M 
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INMXZ - TRANSMIT Installation Exit-Invocation Routine 


STEP 01D 


INMXCOM 

STDDDNAM PDSDDNAM 
AMSDDNAM 

INMXCOM 


REPROPTR XPRMCPTR 


> D. PERFORM INITIALIZATION UNIQUE TO THE 
\ USER INMXZ03 EXIT. 

/ 


PARAMETERS 


INMXCOM 


FOUTDSN FOUTDON 
USERWORD 


INMXCOM 


XPRMPTR 

ZXTUP1 

ZXTUP2 

NUPTRO 


INMCCOM 


. CPPLPTR 


PLIST 



Perform common exit setup 
functions. This processing 
includes setup of common 
parameters and 
initialization or completion 
of the status and action 
flag bytes. 


Perform the invocation of 
the user exit. Insure that 
the exit is really there 
(non-zero address) and 
modify the module id trace 
pointers so that only exit 
ABENDS can be associated 
with the exit. 


A. VERIFY THAT THE ENTRY POINT EXISTS AND 
INVOKE THE EXIT ROUTINE. 

/l -- 

\.- 1 / EXITRTN 





\PLIST 

/«- 

PREPRO 

PINPDDN 

POUTDDN 

PPARM3 

PZ03END 


MNMXCOM 

/■- 

USERWORD 

\PLIST 

/.- 

PUWORD 

PPARM1 

PACTFLAG 

PCPPL 

PMSG 

PSTATUS 

PFUSER 

PDSNTU 

PADDRESS 


MNMREGS 

/.- 

R1 R15 

MNMCCOM 

ImodidptrI 


INMREGS 


Perform common 
post-processing functions 
for the TRANSMIT command 
exits. This processing 
includes sending the 
"terminated by exit" message 
and any message passed back 
by the exit. 


A. ISSUE MESSAGE INMX150 IF THE EXIT RETURN 
CODE IS NOT 0. 

A -*\i- 

\i- 1 / INMCMSGI 



MNMCCOM 

modidptr] 


MNMCCOM 

/\ - 

MSG# 

MSGFLAGS 

DECMSG 

STRNGMSG 

FRC12 

RC 

MSGFIXED 

MSGSTRL 

MSGSTRP 
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INMXZ - TRANSMIT Installation Exit-Invocation Routine 


STEP 04B 


PLIST 



PARAMETERS 



D. ISSUE MESSAGL INMX214 IF THE MESSAGE 
LENGTH'IS INVALID* 


INMCMSGI 


E* ISSUE MESSAGE INMX153 IF NODE.USERID 
LIST NAS INVALIDATED AND NO MESSAGE 
PROVIDED BY EXIT. 


INMCMSGI 


05 After common post-processing 
—has completed# perform those 
functions unique to a 
particular exit such as 
passing back exit-specified 
values. 

A. PERFORM POST-PROCESSING FUNCTIONS UNIQUE 
TO THE INMXZ01 EXIT. 


MNMXCOM 


NUPTRO 


MNMCCOM 


MSGFLAGS 

STRNGMSG 

MSGSTRL 

MSGSTRP 


MKJEFFMT 


MSGTABLE 

LISTPTR 

MTCPPL 

MTHIGH 

MSGCSECT 

MTPUTLSW 

MTPGMSW 

MSGID 

LI 

VAR1 

L2 

VAR2 


MNMREGS 


MNMCCOM 




MNMCCOM 


MSGS 

MSGFLAGS 

DECMSG 

STRNGMSG 

MSGFIXED 

MSGSTRL 

MSGSTRP 


KINMXCOM 

i/|- 

FXPRM 

FXDDN 

DDNL 

DDN 
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INMXZ - TRANSMIT Installation Exit-Invocation Routine 


STEP 05B 
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INMXZ01 - MODULE DESCRIPTION 

DESCRIPTIVE NAME: TRANSMIT Startup Exit Routine* 
FUNCTION: 

INMXZ01 is an exit routine that can be 
replaced by the installation* It does nothing 
except set return code zero and return to the 
caller. 

ENTRY POINT: INMXZ01 
PURPOSE: See FUNCTION 
LINKAGE: PLS CALL 
CALLERS: INMXZ 

INPUT: All input is provided via the parameter list. 

OUTPUT: None 

EXIT NORMAL: BR 14 Return to caller 

EXTERNAL REFERENCES: 

ROUTINES: None 
CONTROL BLOCKS: None 
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XNMXZ01 - MODULE OPERATION 


XNMXZ01 is an exit routine that can be 
replaced by the installation* It does nothing 
except set return code zero and return to the 
caller. 
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ZNMXZ01 - DIAGNOSTIC AIDS 


ENTRY POINT NAME: inmxzoi 

MESSAGES: None 

ABEND CODES: None 

WAIT STATE CODES: None 

RETURN CODES: 

EXIT NORMAL: 

Return code in register 15 is always zero. 


REGISTER CONTENTS ON ENTRY: 

Register 1 - Address of a parameter list 

Register 13 - Save area address 
Register 14 - Return address 
Register 15 - Entry point address 
Other - Unpredictable 


REGISTER CONTENTS ON EXIT: 

EXIT NORMAL: 

Register 15 - Always zero 
Other - Unchanged 
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XNMXZ01 


TRANSMIT Startup Exit Routine. 


INMXZ 

o 

INMXZ01 


INMXZ01 is an exit routine that can be 
replaced by the installation. It does 
nothing except set return code zero and 
return to the caller. 
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INMXZ02 - MODULE DESCRIPTION 

DESCRIPTIVE NAME: TRANSMIT Termination Exit Routine. 
FUNCTION: 

It*TiXZ02 is an exit routine that can be replaced 
by the installation. It does nothing except 
set return code zero and return to the caller. 

ENTRY POINT: INMXZ02 

PURPOSE: See FUNCTION 

LINKAGE: PLS CALL 

CALLERS: INMXZ 

INPUT: All input is provided via the parameter list. 

OUTPUT: None 

EXIT NORMAL: BR 14 Return to caller 

EXTERNAL REFERENCES: 

ROUTINES: None 
CONTROL BLOCKS: None 
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XNMXZ02 - MODULE OPERATION 


INMXZ02 is an exit routine that can 
be replaced by the installation. It does 
nothing except set return code zero and return 
to the caller. 
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INMXZ02 - DIAGNOSTIC AIDS 

ENTRY POINT NAME: INMXZ02 

MESSAGES: None 

ABEND CODES: None 

WAIT STATE CODES: None 

RETURN CODES: 

EXIT NORMAL: 

Return code in register 15 is always zero* 


REGISTER CONTENTS ON ENTRY: 

Register 1 - Address of a parameter list 

Register 13 - Save area address 
Register 14 - Return address 
Register 15 - Entry point address 
Other - Unpredictable 


REGISTER CONTENTS ON EXIT: 

EXIT NORMAL: 

Register 15 - Always zero 
Other - Unchanged 
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INMXZ02 - TRANSMIT Termination Exit Routine. 


INMXZ 

C> 

INMXZ02 


INMXZ02 is an exit routine that can be 
replaced by the installation. It does 
nothing except set return cod8 zero and 
return to the caller. 
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DESCRIPTIVE NAME: TRANSMIT Encryption Exit Routine* 
FUNCTION: 

INMXZ03 is an exit routine that can be 
replaced by the installation. It does nothing 
except set return code zero and return to the 
caller. 

ENTRY POINT: XNMXZ03 
PURPOSE: See FUNCTION 
LINKAGE: PLS CALL 
CALLERS: INMXZ 

INPUT: All input is provided via the parameter list. 

OUTPUT: None 

EXIT NORMAL: BR 14 Return to caller 

EXTERNAL REFERENCES: 

ROUTINES: None 
CONTROL BLOCKS: None 
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XNMXZ03 - NODULE OPERATION 


INMXZ03 is an exit routine that can be 
replaced by the installation. It does nothing 
except set return code zero and return to the 
caller. 
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INMXZ03 - DIAGNOSTIC AIDS 


ENTRY POINT NAME: INMXZ03 

MESSAGES: None 

ABEND CODES: None 

WAIT STATE CODES: None 

RETURN CODES: 

EXIT NORMAL: 

Return code in register 15 is always zero* 


REGISTER CONTENTS ON ENTRY: 

Register 1 - Address of a parameter list 

Register 13 - Save area address 
Register 14 - Return address 
Register 15 - Entry point address 
Other - Unpredictable 


REGISTER CONTENTS ON EXIT: 

EXIT NORMAL: 

Register 15 - Always zero 
Other - Unchanged 


2-362 


Interactive Data Transmission Facility Logic LY28-1105-2 tc) Copyright IBM Corp« 1981> 1986 



"Contains Restricted Materials of IBM 1 
Licensed Materials - Property of IBM 


XNMXZ03 - TRANSMIT Encryption Exit Routine. 


INMXZ 

INMXZ03 


INMXZ03 is an exit routine that can be 
replaced by the installation. It does 
nothing except set return code zero and 
return to the caller. 
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INDEX 


ABEND code OAF 


reason code 37 

2-89 

reason code 42 

2-289 

reason code 52 

2-239 

reason code 67 

2-247 

reason code 83 

2-338 

reason code 127 

2-89 

reason code 132 

2-89 

reason code 134 

2-89 

reason code 137 

2-89 

reason code 203 

2-229 

reason code 204 

2-229 

reason code 210 

2-229 


ABEND issued by 

INMRM 2-95,2-96,2-97,2-106,2-107 
INMXASYS 2-231,2-235,2-236 
INMXCODE 2-241 
1NMXPDS 2-292 
access method services REPRO usage 
(1NMRALLO) 2-52,2-59 
acknowledgement exit routine (INMRZ04) 2-203 
acknowledgement record 2-118,2-131 
address validity check routine (see INMXV) 
allocating 

input data set for TRANSMIT (INMXI) 2-246 
log data set for RECEIVE (INMRLOGO) 2-80 
log data set for TRANSMIT (INMXLOG) 2-254 
output file (INMXASYS) 2-228 
altctl tag processing (INMXQ) 2-303 
attaching BEBCOPY 
inINMRPDS 2-143 
inINMXPDS 2-294 

attention handling routine for the TRANSMIT command 
(see INMCX) 

building the control record (INMXO) 2-274 

check address validity 2-332 
command processor 1-1 
RECEIVE 2-6,2-87 
TRANSMIT 2-2,2-261 
command scan 2-160,2-326 
common parameter structure (see INMMCOM) 
control data set allocation routine (see INMCA) 
control data set EODAD routine (see INMCEOF) 
control data set SYNAD routine (see INMCSYN) 
control record build routine (see INMXO) 
control record processing (INMRO) 2-120 


data 

data sets not processed 
indexed sequential 1-2 
VSAM 1-2 
data sets processed 

partitioned data sets 1-2 
sequential data sets 1-2 

file formats 

fixed (F) 1-2 

fixed blocked (FB) 1-2 
fixed blocked sequential (FBS) 1-2 
unblocked (U) 1-2 

variable (V) 1-2 

variable blocked (VB) 1-2 
variable blocked sequential (VBS) 1-2 
postprocessing exit routine (INMRZ12) 2-211 
preprocessing exit routine (INMRZ11) 2-207 
data characteristics for TRANSMIT and RECEIVE 1-2 
decryption exit routine (INMRZ13) 2-215 
destination mode l-l 
detaching IEBCOPY 
inINMRPDS 2-143 
in INMXPDS 2-295 
directing the JES external writer 1-1 
dumping storage ranges 2-34 
dynamic allocation usage 
INMCA 2-13 

INMRALLO 2-54, 2-56,2-59,2-60 

INMRM 2-93,2-96,2-100,2-101,2-105,2-106,2-108 

INMRNTFY 2-115,2-118 

INMRPDS 2-140,2-141,2-142,2-144 

INMRR 2-159 

INMXASYS 2-230, 2-232,2-233 

INMXCODE 2-240,2-241,2-242,2-244 

INMXI 2-248 

INMXLOG 2-257,2-260 

INMXM 2-268,2-270 

INMXPDS 2-290,2-291,2-292, 2-293, 2-297 

INMXXMIT 2-342 

encryption exit for TRANSMIT (INMXZ03) 2-360 
encryption invocation routine (see INMXCODE) 
entering the RECEIVE command l-l, 1-3 
epilog tag processing (INMXQ) 2-304 
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ESTAE routine 

forINMRM 2-28,2-92 
for INMXM 2-28“ 
exit routines 
invoking 

RECEIVE 2-188 
TRANSMIT 2-345 
external writer, JES 1-1,1-3 

file decryption 2-68 

file decryption routine (see 1NMRC0DE) 

greenwich mean time (GMT) 
use 2-2,2-6 

GMT to local time conversion routine (fee INMCTIME) 
IDCAMS 

used by INMRCODE 2-61, 2-67,2-68 
used by INMXCODE 2-237 
IEBCOPY 2-143,2-295 
IHASDWA 2-33 
IKJEFF02, used by 
INMCMSGI 2-20 
INMCX 2-47 
INMRALLO 2-51 
INMRCODE 2-61 
INMRF 2-70 
INMRM 2-87 
INMRO 2-120,2-131 
INMRUINP 2-165 
INMR80 2-219,2-224 
INMXM 2-261 
INMXTIN 2-324 
INMXXM1T 2-336 
used in RECEIVE processing 2-6,2-8 
used in TRANSMIT processing 2-3 
IKJEFF18, used by 
INMCMSGI 2-20 
IKJEFF19, used by 
INMCMSGI 2-20 
IKJPARS, used by 
INMRSCMD 2-160 
INMRUINP 2-165 
INMXUINP 2-326 
used in RECEIVE processing 2-6-2-7 
INMCA 

diagnostic information 2-12 
entry point 2-10 
exit 2-12 

external references 2-10 
Amotion 2-10 
operation 2-11 
used by 

INMRQ 2-150 
1NMXQ 2-2,2-302 


use in TRANSMIT processing 2-2 
INMCEOF 

diagnostic information 2-18 
entry point 2-16 
exit 2-18 

external references 2-16 
function 2-16 
operation 2-17 

used in TRANSMIT processing 2-5 
used in RECEIVE processing 2-9 
INMCMSGI 

diagnostic information 2-22 
entry point 2-20 
exit 2-22 

external references 2-20 
function 2-20 
operation 2-21 

usedinTRANSMIT processing 2-5 
used in RECEIVE processing 2-9 
INMCR 

diagnostic information 2-30 
entry point 2-28 
exit 2-30 

external references 2-28 
function 2-28 
operation 2-29 

used in TRANSMIT processing 2-2 
used in RECEIVE processing 2-6 
INMCSPAC 

diagnostic information 2-38 
entry point 2-36 
exit 2-38 

external references 2-36 
function 2-36 
operation 2-37 
INMCSYN 

diagnostic information 241 
entry point 2-39 
exit 241 

external references 2-39 
function 2-39 
operation 240 

used in TRANSMIT processing 2-5 
used in RECEIVE processing 2-9 
INMCTIME 

diagnostic information 245 
entry point 243 
exit 245 

external references 243 
function 243 
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imcrmE (continued) 
operation 244 
used by 

INMRO 2*46,2-125,2-128 
INMXM 2-46,2-266 
used in TRANSMIT processing 2-2 
used in RECEIVE processing 2*6 
INMCX 

diagnostic information 249 
entry point 247 
exit 249 

external references 247 
function 247 
operation 248 
used by 

INMXTIN 2-318 
used in TRANSMIT processing 2-5 
INMMCOM 2-10 
INMPDL 2-160 
INMRALLO 

diagnostic information 2-53 
entry point 2-51 
exit 2-53 

external references 2-51 
function 2-51 
operation 2-52 
used by 

INMRM 2-100 

used in RECEIVE processing 2-7 
INMRATXT 2-51 
INMRONF 2-51 
INMRCODE 

diagnostic information 2-63 
entry point 2*61 
exit 2-63 

external references 2-61 
function 2-61 
operation 2-62 
used by 

INMRM 2-100 

used in RECEIVE processing 2-7 
INMRCOM 2-51 
INMRF 

diagnostic information 2-72 
entry point 2-70 
exit 2-72 

external references 2-70 
function 2-70 
operation 2-71 
used by 

INMRM 2-100 

used in RECEIVE processing 2-7 
INMRLOGO 

diagnostic information 2-81 
entry point 2-79 
exit 2-81 


external references 2-79 
function 2-79 
operation 2-80 
used by 

INMRO 2-131 

used in RECEIVE processing 2-6 
INMRM 

diagnostic information 2-89 
entry point 2-87 
exit 2-90 

external reterences 2-87 
function 2-87 
operation 2-88 
overview process 2*6 
used in RECEIVE processing 1-3 
INMRMSG 

diagnostic information 2-110 

entry point 2-109 
exit 2-110 

external references 2-109 
function 2-109 

used in RECEIVE processing 2-9 
INMRNTFY 

diagnostic information 2-114 

entry point 2-112 
exit 2-114 

external references 2-112 
function 2-112 
operation 2-113 
used by 

INMRM 2-103 

used in RECEIVE processing 2-8 
INMRO 

diagnostic information 2-122 
entry point 2-120 
exit 2-122 

external references 2-120 
function 2-120 
operation 2-121 
used by 

INMRM 2-98 

used in RECEIVE processing 2*6 
INMRPDS 

diagnostic information 2-139 
entry point 2-137 
exit 2-139 

external references 2-137 
function 2-137 
operation 2-138 
used by 

INMRM 2-101 

used in RECEIVE processing 2-7 
INMRQ 

diagnostic information 2-147 
entry point 2-145 
exit 2-147 
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INMRQ (continued) 

external references 2-145 
function 2-145 
operation 2-146 
used by 

INMRLOGO 2-82 
used in RECEIVE processing 2-6 
INMRR 

diagnostic information 2-157 
entry point 2-155 
exit 2-157 

external references 2-155 
function 2-155 
operation 2-156 
used in RECEIVE processing 2-9 
INMRSCMD 

diagnostic information 2-162 
entry point 2-160 
exit 2-162 

external references 2-160 
function 2-160 
operation 2-161 
used in RECEIVE processing 2-6 
INMRUINP 

diagnostic information 2-167 
entry point 2-165 
exit 2-168 

external references 2-165 
function 2-165 
operation 2-166 
used by 

INMRM 2-98 

used in RECEIVE processing 2-7 
INMRVBS 

diagnostic information 2-177 
entry point 2-175 
exit 2-177 

external references 2-175 
function 2-175 
operation 2-176 
used by 

INMRM 2-100 

used in RECEIVE processing 2-7 
INMRZ 

diagnostic information 2-190 
entry point 2-188 
exit 2-190 

external references 2-188 
function 2-188 
operation 2-189 
used by 

INMRM 2-101,2-107 
INMRO 2-128 

used in RECEIVE processing 2-7 


INMRZ01 

diagnostic information 2-197 
entry point 2-195 
exit 2-197 

external references 2-195 
function 2-195 
operation 2-196 
setup 2-191 

used in RECEIVE processing 2-6 
INMRZ02 

diagnostic information 2-201 
entry point 2-199 
exit 2-201 

external references 2-199 
function 2-199 
operation 2-200 
setup 2-191 

used in RECEIVE processing 2-8 
INMRZ04 

diagnostic information 2-205 
entry point 2-203 
exit 2-205 

external references 2-203 

function 2-203 
operation 2-204 
setup 2-191 

used in RECEIVE processing 2-6 
INMRZ 11 

diagnostic information 2-209 
entry point 2-207 
exit 2-209 

external references 2-207 
function 2-207 
operation 2-208 
setup 2-191 

used in RECEIVE processing 2-7 
INMRZ12 

diagnostic information 2-213 
entry point 2-211 
exit 2-213 

external references 2-211 

function 2-211 
operation 2-212 
setup 2-192 

used in RECEIVE processing 2-8 
INMRZ13 

diagnostic information 2-217 
entry point 2-215 
exit 2-217 

external references 2-215 
function 2-215 
operation 2-216 
setup 2-192 

used in RECEIVE processing 2-7 
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INMR01 transmission header 2-117,2-277 

INMR02 record 2-277 

INMR03 record 2-280 

INMR06 trailer record 2-118 

INMR07 acknowledgement record 2-118 

INMR80 

diagnostic information 2-221 
entry point 2-219 
exit 2-221 

external references 2-219 
function 2-219 
operation 2-220 
used by 

INMRM 2-100 

used in RECEIVE processing 2-7 
INMXASYS 

diagnostic information 2-229 
entry point 2-227 
exit 2-229 

external references 2-227 
function 2-227 
operation 2-226 
used by 

INMXM 2-269 

used in TRANSMIT processing 2-3 
INMXCODE 

diagnostic information 2-239 
entry point 2-237 
exit 2-239 

external references 2-237 
function 2-237 
operation 2-238 
used by 

INMXM 2-269 

used in TRANSMIT processing 2-3 
INMXCOM 2-237 
INMXI 

diagnostic information 2-247 
entry point 2-245 
exit 2-247 

external references 2-245 
function 2-245 
operation 2-246 
used by 

INMXM 2-266 

used in TRANSMIT processing 2-3 
INMXLOG 

diagnostic information 2-255 
entry point 2-253 
exit 2-255 

external references 2-253 
function 2-253 
operation 2-254 
used by 

INMXM 2-270 

used in TRANSMIT processing 24 


INMXM 

diagnostic information 2-263 
entry point 2-261 
exit 2-263 

external references 2-261 
function 2-261 
operation 2-262 
overview process 1-3 
used in TRANSMIT processing 2-2 
INMXMSG 

diagnostic information 2-272 
exit 2-272 

external references 2-271 
function 2-271 

used in TRANSMIT processing 2-5 
INMXO 

diagnostic information 2-276 
entry point 2-274 
exit 2-276 

external references 2-274 
function 2-274 
operation 2-275 

used in TRANSMIT processing 24 
INMXPARM 

diagnostic information 2-286 
entry point 2-284 
exit 2-286 

external references 2-284 
function 2-284 
operation 2-285 

used in TRANSMIT processing 2-5 
INMXPDS 

diagnostic information 2-289 
entry point 2-287 
exit 2-289 

external references 2-287 
function 2-287 
operation 2-288 
used by 

INMXM 2-269 

used in TRANSMIT processing 2-3 
INMXPRMD 2-51 
INMXQ 

diagnostic information 2-300 
entry point 2-298 
exit 2-301 

external references 2-298 
function 2-298 
operation 2-299 
used by 

INMXM 2-266 

used in TRANSMIT processing 2-2 
INMXR 

diagnostic information 2-316 
entry point 2-314 
exit 2-316 
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INMXR (continued) 

external references 2-314 
function 2-314 
operation 2-315 

used in TRANSMIT processing 2-5 
INMXTIN 

diagnostic information 2-3 20 
entry point 2-318 
exit 2-320 

external references 2-318 
function 2-318 
operation 2-319 

used by 

1NMXM 2-267 

used in TRANSMIT processing 2-3 
INMUINP 

diagnostic information 2-3 28 
entry point 2-326 
exit 2-328 

external references 2-326 
function 2-326 
operation 2-327 
used by 

INMXM 2-266 

used in TRANSMIT processing 2-2 
INMXV 

diagnostic information 2-334 
entry point 2-332 
exit 2-334 

external references 2-332 
function 2-332 
operation 2-333 
used by 

IKJPARS 2-5 
INMXXMIT 

diagnostic information 2-3 3 8 

entry point 2-336 
exit 2-338 

external references 2*336 
function 2-336 
operation 2-337 
used by 

INMXM 2-269 

used in TRANSMIT processing 24 
INMXZ 

diagnostic information 2-347 
entry point 2-345 
exit 2-347 

external references 2-345 
function 2-345 
operation 2-346 
used by 

INMXCODE 2-243 
INMXM 2-266 

used in TRANSMIT processing 2-2 - 24 


INMXZ 01 

diagnostic information 2-354 
entry point 2-352 
exit 2-354 

external references 2-352 
function 2-352 
operation 2-353 
setup 2-348 

used in TRANSMIT processing 2-2 
INMXZ02 

diagnostic information 2-358 
entry point 2-356 
exit 2-358 

external references 2-356 
function 2-356 
operation 2-357 
setup 2-348 

used in TRANSMIT processing 24 
INMXZ03 

diagnostic information 2-362 
entry point 2-360 
exit 2-362 

external references 2-360 
function 2-360 
operation 2-361 
setup 2-349 

used in TRANSMIT processing 2-3 
input allocate and DSCB read routine (see INMXI) 
installation options block (see INMXPRMD) 
introduction 1-1 

invoking encryption (INMXCODE) 2-237 
invoking exits 

RECEIVE processing (INMRZ) 2-188 
TRANSMIT processing (INMXZ) 2-345 

JES external writer 
signaling 1-1 

JES networking facilities 1-3 
JES usage 1-3,2-8,2-9 

local time 

conversion (see INMCTIME) 
used by 

INMRM 2-91 
INMRO 2-128 
INMXM 2-266 

log allocate and open routine (see INMXLOG) 
log data set 

allocating 2-79 
opening 2-79 

writing to 2-70,2-80,2-102,2-253 
log file (see log data set) 
log open routine (see INMRLOGO) 
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message issuing routine (see INMCMSGI) 

INMR127I 

2-89 

messages issued 


INMR128I 

2-89 

INMC001I 

2-12,241,2-147,2-300 

INMR129I 

2-89 

INMC002I 

2-12 

INMR130I 

2-72, 2-89, 2-122, 2-177, 2-221 

INMC003I 

2-12,2-147,2-300 

INMR131I 

2-89 

INMC004I 

2-12 

INMR132I 

2-89 

INMC005I 

249 

INMR133I 

2-89 

INMC006I 

2-22 

INMR134I 

2-89 

INMC007I 

2-22 

INMR135I 

2-122,2-177,2-221 

INMC008I 

241 

INMR136I 

2-72,2-122,2-177,2-221 

1NMC009I 

241 

INMR137I 

2-89 

INMC010I 

2-147, 2-300 

INMR138I 

2-72, 2-177 

INMC011I 

2-147, 2-300 

INMR139I 

2-122 

INMC012I 

2-13 

INMR140I 

2-114 

INMR000I 

2-89 

INMR141I 

2-114 

INMR001I 

2-89 

INMR142I 

2-114 

INMR002I 

2-89 

INMR143I 

2-114 

INMR003I 

2-89 

INMR144I 

2-114 

INMR004I 

2-89 

INMR1451 

2-89 

INMR005I 

2-190 

INMR146I 

2-114 

INMR006I 

2-177 

INMR150I 

2-190 

INMR007I 

245 

INMR151I 

2-190 

INMR0081 

2-162 

INMR152I 

2-89 

INMR030I 

2-157 

INMR153I 

2-89 

INMR0311 

2-157 

INMR800I 

2-53. 2-63, 2-72, 2-89, 2-167 

INMR032I 

2-167 

INMR900I 

2-89 

INMR033I 

2-167 

INMR901I 

2-122,2-167 

INMR034I 

2-167 

INMR902I 

2-167 

INMR035I 

2-167 

INMR906I 

2-167 

INMR036I 

2-167 

INMR907I 

2-167 

INMR037I 

2-89 

INMR908I 

2-167 

INMR040I 

2-89 

INMR909I 

2-167 

INMR041I 

2-89 

INMR910I 

2-89 

INMR042I 

2-53, 2-63, 2-89, 2-167 

INMR911I 

2-89 

INMR043I 

2-53, 2-63, 2-72, 2-167 

INMR913I 

2-89 

TNMR044I 

2-53, 2-63, 2-72, 2-89, 2-167 

INMR916I 

2-63 

INMR045I 

2-53 

INMR917I 

2-63 

INMR046I 

2-53 

INMR918I 

2*63 

INMR056I 

2-89 

INMR921I 

2-122 

INMR060I 

2-53, 2-167,2-177,2-221 

INMR922I 

2-122 

INMR061I 

2-53 

INMR931I 

2-122 

INMR062I 

2-53 

INMR932I 

2-122 

INMR063I 

2-53 

INMR933A 

2-72 

INMR064I 

2-167 

INMR934I 

2-167 

INMR065I 

2-177, 2-221 

INMX000I 

2-338 

INMR066I 

2-177, 2-221 

INMX019I 

2-300 

INMR067I 

2-53 

INMX0201 

2-300 

INMR068I 

2-72 

INMX021I 

2-300 

INMR069I 

2-53 

INMX022I 

2-300 

INMR0701 

2-53, 2-139 

INMX023I 

2-300 

1NMR071I 

2-53,2-139 

INMX024I 

2-300 

INMR072I 

2-139 

INMX025I 

2-300 

INMR080I 

2-53, 2-63 

INMX026I 

2-300 

INMR081I 

2-53, 2-63 

INMX027I 

2-300 

INMR082I 

2-63 

INMX028I 

2-300 

INMR090I 

2-81 

INMX029I 

2-300 

INMR091I 

2-81 

INMX030I 

2-300 

INMR092I 

2-81 

INMX031I 

2-300 

INMR093I 

2-81 

INMX032I 

2-338 

INMRIOII 

2-122 

INMX033I 

2-338 

INMR102I 

2-122 



INMR108I 

2-72. 2-177 



INMR109I 

2-177 
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messages issued (continued) 


INMX034I 

2-338 

INMX035I 

2-328 

INMX036I 

2-328 

INMX037I 

2-316 

INMX038I 

2-316 

INMX040I 

2-289 

INMX041I 

2-289 

INMX042I 

2-289 

INMX043I 

2-289 

INMX050I 

2-239, 2-263 

INMX051I 

2-239 

INMX052I 

2-239,2-263 

INMXG60I 

2-247, 2-338 

INMX061I 

2-247 

INMX0621 

2-247, 2-338 

INMX063I 

2-247 

INMX064I 

2-247 

INMX065I 

2-247 

INMX066I 

2-247 

INMX067I 

2-247 

INMX068I 

2-247 

INMX069I 

2-247 

INMX073I 

2-255 

INMX074I 

2-255 

INMX081I 

2*289 

INMX083I 

2-338 

INMX090A 

2-320 

INMX091I 

2-320 

INMX092I 

2-328 

INMX094I 

2-328 

INMX100I 

2-239 

INMX101I 

2-239 

INMX105I 

2-239 

INMX106I 

2-239 

INMX107I 

2-239 

INMX150I 

2-347 

INMX1511 

2-347 

INMX152I 

2-263 

INMX153I 

2-34? 

INMX201I 

2-229 

INMX202I 

2-229 

INMX203I 

2-229 

INMX204I 

2-229 

INMX206I 

2-229 

INMX208I 

2-229 

INMX209I 

2-229 

INMX210I 

2-229 

INMX213I 

2-300 

INMX214I 

2-347 

messages module 


RECEIVE command (see INMRMSG) 2-109 
TRANSMIT command (see INMXMSG) 2-271 
MODESET use in INMRM 2-94, 2-95,2-107 
module information 2-1 


INMCA 2-15 
INMRQ 2-151,2-154 
INMXQ 2-306 
end-o f-file 2-16,2-154 
errors while processing 2-147, 2-300 
nicknames 2-145,2-298 
opening 

INMCA 2-14 
INMRQ 2-148 
INMXQ 2-302,2-305 
reading 

INMRQ 2-148 
INMXQ 2-303,2-305 
syntax errors 2-22,2-26 
usage 2-298 
node 

receiver 1-1 
sender 1-1 

notifying sender of transmission (1NMRNTFY) 2-112 

opening the log (see INMXLOG) 

opening the log file (see INMRLOGO) 

output data set allocation routine (see INMRALLO) 

output data set allocation text unit list (see INMRATXT) 

output file allocation routine (see INMXASYS) 

overview 1-3 

parameter description list (see INMPDL) 

PDS reload routine (see INMRPDS) 
process flow, TRANSMIT and RECEIVE 1-3,2-2,2-6 
processing the RECEIVE command 
using 

JES external writer 1-3 
SSREQ macro 1-1,1-3,2-8,2-9 
Prolog tag processing (INMXQ) 2-303 
prompting the (INMRUINP) 2-165 
providing a system dump (see INMCR) (see INMRM) 

read and process control records routine (see INMRO) 

read asis routine (see INMR80) 

reading from the terminal (INMXTIN) 2-318 

reading the DSCB ONMXQ 2-245 

RECEIVE ABEND cleanup routine (see INMRR) 

RECEIVE command, entering 1-1 

RECEIVE command processor 2-6 

RECEIVE ESTAE routine 2-28 


RECEIVE exit routine 

INMRZ01 

2-195 

INMRZ02 

2-199 

INMRZ04 

2-203 

INMRZ11 

2-207 

INMRZ12 

2-211 

INMRZ13 

2-215 


NAMES data set 

allocating 2-13,2-148 
closing 
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RECEIVE processing 2-6 

output data set allocation (INMRALLO) 2-51 
RECEIVE routines 

ABEND cleanup routine (INMRR) 2-28,2-155 
acknowledgement exit routine QNMRZ04) 2-203 
allocate output data set routine (INMRALLO) 2-51 
command main routine (INMRM) 2-87 
command message module (INMRMSG) 2-109 
command scan subroutine (INMRSCMD) 2-160 
data postprocessing exit routine (INMRZ12) 2-211 
data preprocessing exit routine (INMRZ11) 2-207 

decryption exit routine (INMRZ 13) 2-215 

exit - invocation routine (INMRZ) 2-188 
£Qe decryption routine (INMRCODE) 2-61 
log open routine (INMRLOGO) 2-79 
nickname resolution routine (INMRQ) 2-145 
PDS reload routine (INMRPDS) 2-137 
read and process control records routine 
(INMRO) 2-120 
read asis routine (INMR80) 2-219 
send user notification routine (INMRNTFY) 2-112 
start up exit routine (INMRZ01) 2-195 

termination exit routine (INMRZ02) 2-199 
transmission file reload routine (INMRVBS) 2-175 
transmission file reload to log routine (INMRF) 2-70 
user prompt routine (INMRUINP) 2-165 
RECEIVE start up exit routine (see INMRZ01) 

RECEIVE termination exit routine (see INMRZ02) 
received file description table (see INMRCINF) 
receiving node 1-1 
recovery termination manager (RTM) 

invokes INMRR in RECEIVE processing 2-5 
invokes INMXR in TRANSMIT processing 2-9 
reloading the transmission file (INMRVBS) 2-175 
resolving nicknames 
INMRQ 2-145 
INMXQ 2-298 

routines of TRANSMIT and RECEIVE 2-1 

scanning the RECEIVE command (INMRSCMD) 2-160 
scanning the TRANSMIT command (INMXUINP) 2-3 26 
SDWA usage 2-28 

send user notification routine (see INMRNTFY) 
sequence of events, TRANSMIT and RECEIVE 1-3 
sequential file transmit routine (see INMXXMIT) 
spool usage 1-3 
SSREQ macro, usage 1-1 
SSREQ usage 

used in RECEIVE processing 2-8, 2-9 
startup exit 

RECEIVE (INMRZ01) 2-195 
TRANSMIT ONMXZ01) 2-352 


storage management 2-36 
storage ranges 2-34 
subsystem interface usage 
INMRM 2-8,2-106 
INMRR 2-9,2-158 
SYNAD routine (see INMCSYN) 

SYNADRLS usage 
INMCSYN 240 
INMRF 2-76 
INMRO 2-136 
INMRVBS 2-185 
INMR80 2-225 
INMXXMIT 2-344 
syntax errors 

in the NAMES data set 2-22, 2-26 
system diagnostic work area (see IHASDWA) 
system dump (see INMCR) (see INMRM) 

tag processing 

altctl tag 2-303 
cc tag 2-306 
epilog tag 2-304 
list tag 2-306 
nick tag 2-309 
Prolog tag 2-303 
terminal read routine (see INMXTIN) 
termination exit routine 
RECEIVE (INMRZ02) 1 
TRANSMIT (INMXZ02) 1 
time 

greenwich mean time 243 
local time 243 
trailer record 2-118 

transmission file reload routine (see INMRVBS) 
transmission file reload to log routine (see INMRF) 
transmission header 2-117 
TRANSMIT ABEND cleanup routine (see INMXR) 
TRANSMIT and RECEIVE 
process flow 1-3 
sequence of events l-l 

TRANSMIT and RECEIVE command storage management 
routine (see INMCSPAC) 

TRANSMIT and RECEIVE commands 1-1 
data characteristics 1-2 

TRANSMIT and RECEIVE ESTAE routine (see INMCR) 
TRANSMIT and RECEIVE processing 

installation options block (INMXPARM) 2-284 
obtaining working storage (INMCSPAC) 2-36 
releasing working storage (INMCSPAC) 2-36 
TRANSMIT command 

ABEND cleanup routine 2-28, 2-314 
attention handling routine 247 
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TRANSMIT command (continued) 


entering 1-1 


ESTAE routine 

2-28 

exit routines 


INMXZ01 

2-352 

INMXZ02 

2-356 

INMXZ03 

2-360 

processing 2-2 


TRANSMIT command communications area 
(seeINMXCOM) 

TRANSMIT routines 

ABEND cleanup routine (INMXR) 2-314 
address validity check routine (INMXV) 2-332 
command main routine (INMXM) 2-261 
command message module (INMXMSG) 2-271 
command scan routine (INMXUINP) 2-326 
control record build routine (INMXO) 2-274 
encryption exit routine (INMXZ03) 2-360 
encryption invocation routine (INMXCODE) 2-237 
exit invocation routine (INMXZ) 2-345 
input allocate and DSCB read routine (INMXI) 2-245 
log allocate and open routine (INMXLOG) 2-253 


nickname resolution routine (INMXQ) 2-298 
output file allocation routine (INMXASYS) 2-227 
parameters (INMXPARM) 2-284 
PDS unload routine (INMXPDS) 2-287 
sequential file transmit routine (INMXXMIT) 2-336 
start up exit routine (INMXZ01) 2-352 
terminal read routine (INMXTIN) 2-318 
termination exit routine (1NMXZ02) 2-356 

TRANSMIT start up exit routine (see INMXZ01) 
TRANSMIT termination exit routine (see INMXZ02) 
transmitting a sequential file (INMXXMIT) 2-336 

unloading the PDS (INMXPDS) 2-287 
use of the SSREQ macro 1-1,2-8. 2-9 
user prompt routine (see INMRUINP) 

validity checking the address (INMXV) 2-332 

wait for IEBCOPY to complete 
INMRPDS 2-143 
INMXPDS 2-294 
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